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

[maycncmini]

Bác cho em hỏi, bác mần cái này là thương mại hay chia sẻ vậy ạ? Tại em cũng đang tính mần 1 cái keyboard nhỏ thôi để cầm 1 tay cho dễ. Chứ cầm cái keyboard full-size đi thấy nó bất cập quá.

Chỉ ráp trên máy bên mình dựng thôi bạn

[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)

[maycncmini]

[Jessynina990]

cho minh thêm thông tin nhé...thank .

[cuatudong2018]

Bạn có thể cho xin thông tin thiết kế và cách làm chi tiết, tài liệu được không?

[maycncmini]

Code

Sub Main()
OldTool = GetOEMDRO (1200)
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 = 10 '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
While NewTool > MaxToolNum
NewTool = Question ("Toi da chi co " & MaxToolNum)
Wend
Code "G00 G90 G53 Z" & ToolUp
While IsMoving()
Wend

ActivateSignal(Output2) 'Mo Dinh vi chot BT30
Code "G4 P9.0" 'Wait for the tool to release
'SystemWaitFor (9) 'Wait for the tool Release Limit switch


Code "G53 Z0.0" & ToolUp


While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P2.0"
While IsMoving()
Wend

Call MovePos(NewTool)


DeActivateSignal(Output2) 'Tat Dinh vi chot BT30
Code "G4 P1.0" 'Wait for the tool to Clamp
While IsMoving()
Wend
Code "G53 Z" & ToolUp
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)

Select Case ToolNumber
Case Is = 1
Apos = 36.00
Case Is = 2
Apos = 72.00
Case Is = 3
Apos = 108.00
Case Is = 4
Apos = 144.00
Case Is = 5
Apos = 180.00
Case Is = 6
Apos = 216.00
Case Is = 7
Apos = 252.00
Case Is = 8
Apos = 288.00
Case Is = 9
Apos = 324.00
Case Is = 10
Apos = 0.0
End Select

Code "G53 A" & APos


End Sub
Main