

If GetUserLED (2105) Then 'nicht gesperrt

setuserLED(2105,0) 'kreuz setzen
'SetOEMDRO(2003,m26)
'MsgBox "brennt nicht"

'///Setzt Werkzeugnummer in Tool Setup nach Sperren 
WZREF=GetOEMDRO(824) 'setzt Referenzwerkzeug 
SetOEMDRO(1013,WZREF) ''Setzt Werkzeug in Tool-Setup als Refernenz 
MsgBox "brennt: " & GetOEMDRO(1013)  

'Belegt Referenzwerzeug mit Werkstückkoordinaten X,Z,Y

X=GetOEMDRO(800)
msgbox "x: " & x
SetUserDRO(1014,x)

z=GetOEMDRO(802)
MsgBox "z: " & z
SetUserDRO(1015,z)

y=GetOEMDRO(801)
MsgBox "y: " & y
SetUserDRO(1016,y)
  
Else ' sperrung aufheben


SetUserLED(2105,1) 'Hacken setzen




End If


 