Sub main ()

	
GetOEMDRO(824) ''Werkzeugnummer/toolnuber
GetOEMDRO(801) 'Y Werkstückkoordinate/ Y Workpice
'Y = GetOEMDRO(801)  
'MsgBox "parameter delta y aus Liste " & ywearParam
'MsgBox "toolnummer direkt aus variable 24: " & GetOEMDRO(824)
'MsgBox "y wert aus anzeige : " & y 

'//// Werkzeugkoordinate errechnenen und in Tool-Setup speichern 

YWst=GetOEMDRO(801)  'Werkstückkoordinate/
'MsgBox "ywst: " &  YWst
YWK=GetOEMDRO(1016) 'Y Referenzwerkzeug/Referenztool - DRO setup page
'MsgBox "ywk refernezwerkzeug: " &  YWk
Y=YWst-YWK 'Y-offset 
'MsgBox "delta y: " &  Y

'SetOEMDRO(48,Y) 'tool koordinate Y

SetOEMDRO(801,YWK) 
MsgBox "y koordinate belegt " & getOEMDRO(801)
'hier ende bis hier richtig belegt

SetOEMDRO(112,Y)

	
end sub




   '   
 