Mach3 PDB Manual Tool Change simplified! скачать в хорошем качестве

Mach3 PDB Manual Tool Change simplified!

The PDB is complete along with a Tool Change macro for Mach3 That prompts me to change the tool and gives a tool description. The dialog box allows me plenty of time to change the tool. The program is paused until the user selects " OK". Cycle start restarts the program back at the original location and offsets the new tool. This is the best way I could come up with to manually change the tool using a PDB without being Automatic. Please Note Mach3 Always defaults to tool 0 at start up there is no tool 0 in the tool table offsets. Make sure you Zero Z to the tool you currently have in the spindle to avoid crashes. another choice is to have tool 1 as a index tool that all tools are set from ( this should be longer than your longest tool.) You Need to add a "Tool in Spindle" DRO to the settings tab I used oem # 1224 I have put a semicolon ' in front of the lines I do not use like the X Y Z start position. It seems to work great. If anyone's interested in the M6 Macro Copy and Paste the one below and leave a comment. Thanks For watching, Please Subscribe! M6Macro 'Tool Change Macro For Manual tool change 09/14 CNC4XR7 OldTool = GetOEMDRO (1224) 'Tool In spindle DRO You must add this to your settings screen 'x = GetToolChangeStart( 0 ) ' Get x tool change start position 'y = GetToolChangeStart( 1 ) ' Get y tool change start position 'z = GetToolChangeStart( 2 ) ' Get z tool change start position Code "G53 G0 Z-2.0" ' Move z to tool change position in Machine cord. While IsMoving ' wait for z to move Wend tool = GetSelectedTool() ' tool to be changed to NewTool = tool Call SetUserDRO (1224,NewTool) SetCurrentTool( NewTool ) ' input new tool into tool in spindle dro Code "G43 H" & tool ' Call tool offsets for new tool ' Verify Tool Change Complete Dim Msg, Style, Title, Help, Ctxt, Response,MyString 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 Message "Tool # " & GetCurrentTool() & " : " & GetToolDesc(GetCurrentTool()) & " Installed " & " Returning to Tool Change Start Position" 'Code "G00 X" & x & "Y" & y & "Z" & z 'Move back to where the tool change was prompted Code "G00 Z .25" 'Move Z back to .25" above zero in work cord. While IsMoving Wend End Visit the website at www.cnc4xr7.com