Sub main ()

	
GetOEMDRO(824) ''Werkzeugnummer/toolnumber
GetOEMDRO(801) 'Y Werkstückkoordinate/ Y Workpice
'//// Werkzeugkoordinate errechnenen und in Tool-Setup speichern 

YWst=GetOEMDRO(801)  'Werkstückkoordinate/
YWK=GetOEMDRO(1016) 'Y Referenzwerkzeug/Referenztool - DRO setup page
Y=YWst-YWK 'Y-offset 
SetOEMDRO(801,YWK) 
MsgBox "y koordinate belegt " & getOEMDRO(801)
SetOEMDRO(112,Y)

end sub




   '   
 