add
msgbox ("M6 Start executed")
at the begin of the macro to see that the macro is called
like this ?
msgbox ("M6 Start executed")
OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 4 'Max number of tools for the changer
If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If
While Tool > MaxToolNum
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Call StartTool
While NewTool <> Tool
Call CheckPins
While IsMoving()
Wend
Wend
Call StopTool
Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)
'//// Subroutines /////////
Sub StartTool
ActivateSignal(Output8)
'Code "G4 P4.0" 'Wait for the tool to rotate past the sensor
While IsMoving()
Wend
End Sub
Sub CheckPins
If Not IsActive(Input22) Then
NewTool = 1
End If
If Not IsActive(Input21) Then
NewTool = 2
End If
If Not IsActive(Input20) Then
NewTool = 3
End If
If Not IsActive(Input19) Then
NewTool = 4
End If
End Sub
Sub Stoptool
DeActivateSignal(Output8)
While IsMoving()
Wend
ActivateSignal(Output9)
Code "G4 P1.0" 'Wait for the tool to rotate onto ratchet stop
While IsMoving()
Wend
DeActivateSignal(Output9)
While IsMoving()
Wend
End Sub