5
« on: May 26, 2013, 03:31:44 PM »
numtools = 99 'The number of valid tools
newtool = GetSelectedTool( ) 'read the new requested tool
currenttool = GetOEMDRO(1000) 'user DRO 1000 is used to store the current tool. In this line assign whatever is in this DRO to the variable
While(currenttool< 1 Or currenttool > numtools) 'Check that currenttool contains a legal tool number.
currenttool = question("Please enter the current tool") ' If not ask to enter the current tool in position.
Wend
SetOEMDRO 1000,newtool ' Set user DRO 1000 to the new tool number
dist = (newtool Mod 8 ) - (currenttool Mod 8 ) ' the number of turret positions to move to the requested tool.
If (dist < 0) Then 'Check if rollover needed
dist = 8 - Abs(dist)
End If
Code " G91 G0 A" & dist ' Move to the new turret position.
While IsMoving()
Wend
Code " G91 G0 A" & (-1/5) ' Reverse move to lock - set to 1/5th of one position and can be changed
While IsMoving()
Wend
Code "G90" ' Set back to absolute mode.
SetCurrentTool(newtool)
This is the macro I am using, which was done by a very kind member on here Dan13