2351
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
'Save coolant
SetUSERLED(1200, 1)
If GetOEMLED(12) Then
DoOEMButton(114)
SetUSERLED(1200, 0)
End If
SetOEMDRO(1216,GetOEMDRO(83)) 'Save x
SetOEMDRO(1217,GetOEMDRO(84)) 'save y
'Code "M1001"
message "Fahre Save-Z"
Code "G0G53 Z" & GetOEMDRO(54)
While IsMoving()
Wend
message "Fahre zur Ref-Switch Pos."
code "g0 g53 x" & GetOEMDRO(33) & "g0 g53 y" & GetOEMDRO(34)
While IsMoving()
Wend
tool = GetSelectedTool()
SetCurrentTool( tool )
'code "M1002"
DeActivateSignal(Output14)
DeActivateSignal(Output16)
DeActivateSignal(Output17)
If GetOEMDRO (24) <>0 Then
message "Fahre zur Tool Probe"
code "g0 g53 x" & GetOEMDRO(1218) & "g0 g53 y" & GetOEMDRO(1219) 'Go to probe Position
While IsMoving()
Wend
'Probing process
message "Z-Vorpos"
code "g0 g53 z" & -GetOEMDRO(1220)
While IsMoving()
Wend
message "Z-Probe schnell"
code "g31 z-1000 f700"
While IsMoving()
Wend
' code "M1002"
' code "M1010"
message "Z-Probe Rückzug"
code "g53 g0 z" & GetOEMDRO(85)+3
While IsMoving()
Wend
message "Z-Probe langsam"
code "g31 z-1000 f50"
While IsMoving()
Wend
' code "M1002"
Axis_Pos = GetOEMDRO(85)
Tool_Offset = Axis_Pos
Call setOEMDRO(42, Tool_Offset)
message "Z Save Pos."
Code "G0G53 Z" & GetOEMDRO(54) 'safe-Z
While IsMoving()
Wend
message "X/Y zurück"
Code "G0G53 X" & GetOEMDRO(1216) & "G0G53 Y" & GetOEMDRO(1217)
While IsMoving()
Wend
'Restart coolant
If GetUSERLED(1200)<>1 Then
If GetOEMLED(12) Then
Else
DoOEMButton(114)
End If
SetUSERLED(1200, 1)
End If
Else
MsgBox "Keine Werkzeug-Nummer gewählt",0
End If