1
VB and the development of wizards / Re: Tool change Macro Issue
« on: February 15, 2021, 11:00:27 PM »
Thanks TPS!
I appreciate the help! This was a modification of somebody elses tool change macro that I found online... So there is a lot of cruft.
Do the 800->802 DRO's read out the current work offset or machine coordinates? How do those DRO's change based on g90/g91? I have to admit that the documentation I was able to find on this was unclear.
This is just to wait until the user manually changes the tool. Is there a way to cancel the current running gcode? I think A cancel option would be a good thing to add! That is if I can cancel the currently running program.
Thanks again!
Brian
I appreciate the help! This was a modification of somebody elses tool change macro that I found online... So there is a lot of cruft.
Code: [Select]
x = GetOEMDro( 800 ) ' Get x tool change start position
y = GetOEMDro( 801 ) ' Get y tool change start position
z = GetOEMDro( 802 ) ' Get z tool change start position
Do the 800->802 DRO's read out the current work offset or machine coordinates? How do those DRO's change based on g90/g91? I have to admit that the documentation I was able to find on this was unclear.
Code: [Select]
Call SetUserDRO (1224,NewTool)
This is a user DRO that was added to the settings screen by the original author... I think I can get rid it.Code: [Select]
' Verify Tool Change Complete
Msg = "Please Insert Tool Number " & " ( " & GetSelectedTool() & " ) " & " " & GetToolDesc(NewTool) ' Define message
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons
Style = 0 + 48 + 0 ' Define buttons.
Title = "Tool Change Requested" ' Define title
Help = "DEMO.HLP" ' Define Help file
Ctxt = 1000 ' Define topic 'context. ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbOk Then ' User chose Ok
MyString = "Ok" ' Perform some action
End If
This is just to wait until the user manually changes the tool. Is there a way to cancel the current running gcode? I think A cancel option would be a good thing to add! That is if I can cancel the currently running program.
Thanks again!
Brian