Hi Hood;
Can you please suggest a line that can be added to the vb script so the program does not start until the signal is given that the Toolchanger has reached the bottom of the location slot? That way if there is any missing steps in the Toolchanger stepper it will not do anything until corrected
Kind regards
Mariano


After some sleep I see you wouldnt actually have to put the move to toolchange pos in each section, just having Code "G53 G0 X* Z*" after the first block would work fine.

Like this

 If GetSelectedTool() = GetCurrentTool() Then
End
 End If
 
Code "G53 G0 X* Z*"
While IsMoving()
Wend
 
 If GetSelectedTool = 1 Then
 ActivateSignal(OutPut2)
 Sleep 500
 Code "G53 G0 A0"
 While IsMoving()
 Wend
 DeActivateSignal(OutPut2)
 End If
 
 
 If GetSelectedTool = 2 Then
 ActivateSignal(OutPut2)
 Sleep 500
 Code "G53 G0 A45"
 While IsMoving()
 Wend
 DeActivateSignal(OutPut2)
 End If
 

Hood

Do you have an input to Mach that shows the turret is not clamped?
Hood

Maybe something like this would do.
Tank you Hood;
I will try it tonight when I come back, now I have to drive a Mori-Seiki, with twin chucks and live tooling .great machine.
regards
Mariano


If GetSelectedTool = 1 Then
 ActivateSignal(OutPut2)
 Sleep 500
 Code "G53 G0 A0"
 While IsMoving()
 Wend
 DeActivateSignal(OutPut2)
sleep 1000
If IsActive(Input*) Then
End
Else
MsgBox("Turret not clamped")
DoOemButton(1003)
End If
 End If