301
VB and the development of wizards / Re: help macro to call g54 , g55, g56, g57,g58, g59, g60
« on: November 26, 2021, 02:47:36 AM »
this version will also set new toollength if it is set in tooltable
Code: [Select]
'get new tool number
newtool = GetSelectedTool()
'select Offset by toolnumber
If newtool = 1 Then
Code "G54"
End If
If newtool = 2 Then
Code "G55"
End If
If newtool = 3 Then
Code "G56"
End If
If newtool = 4 Then
Code "G57"
End If
If newtool = 5 Then
Code "G58"
End If
If newtool = 6 Then
Code "G59"
End If
If newtool = 7 Then
Code "G59P7"
End If
SetCurrentTool(newtool)
Code "G43H" 6 newtool