Ok, that seems happier, DRO is updating now
M6Start is now....
Dim Msg, Style, Title
Style = 0 + 64 + 0
Title = "Torch Consumables Change"
SetCurrentTool(GetSelectedTool())
If GetCurrentTool = 1 Then
SetVar(1045,GetToolParam(1,2))
Code" #15045 = " & GetToolParam(1,2)
Msg = GetToolDesc(1) & " Offset = " & GetToolParam(1,2) & "mm"
MsgBox Msg, Style, Title
End If
If GetCurrentTool = 2 Then
SetVar(1045,GetToolParam(2,2))
Code" #15045 = " & GetToolParam(2,2)
Msg = GetToolDesc(2) & " Offset = " & GetToolParam(2,2) & "mm"
MsgBox Msg, Style, Title
End If
Hopefully that will all work as required
Plus I gained TWO new buttons - 30A and 45A torch settings
I might adjust the code a little to position the gantry at the front of the table etc so i can reach the torch, will see how it works on the real machine.
Once again thanks for the excellent help.