Tủ điều khiển - Controller Mach3

[maycncmini]

Code chính :

Sub Main()
Dim sTool As Integer
Dim i As Integer
i=0

OldTool = GetOEMDRO (1200) 'Tool In spindle DRO You must add this to your settings screen
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
'Tool Changer Macro (Bed Type)
MaxToolNum = 7 'Max number off tools for the changer
ToolDown = 160. 'Z Pos to Get or drop a tool
ToolUp = 0.0 'Z Hieght to Rapid from tool to tool
If NewTool = OldTool Then
Exit Sub
End If
If NewTool > OldTool Then
sTool=NewTool-OldTool
End If
If NewTool < OldTool Then
sTool=(7-OldTool) + NewTool
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 G53 Z" & ToolUp
While IsMoving()
Wend

Code "G53 Z0.0" & ToolUp

Call MovePos(sTool)

Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "G00 X" & x & " Y" & y'Move back to where the tool change was prompted
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Do While (i < ToolNumber)
Code "G53 Z" & 120
While IsMoving()
Wend
Code "G53 Z" & 16
Code "G4 P2.0"
While IsMoving()
Wend

i = i + 1

Loop

End Sub
Main

Code Home Tool


DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )

DoOEMButton(133)
DoOEMButton(134)
DoOEMButton(135)

While IsMoving()
Wend

Do While IsActive(Input4)=0
Code "G53 Z" & 160 & "F2000"
While IsMoving()
Wend
Code "G53 Z" & 0 & "F2000"
While IsMoving()
Wend

Loop
SetCurrentTool(1)
Call SetUserDRO (1200,1)