3 Attachment(s)
Tủ điều khiển - Controller Mach3
Dự án :
Kích thước : 1.7mx0.6mx0.5m
Gồm :
- Màn hình cảm ứng điện trở 10.1 inc
- Các núm xoay, nút nhấn thông dụng trên máy Fanuc 10M
- Tay quay
- Bàn phím+chuột (như máy cắt dây Trung Quốc)
Nội thất :
- 01 máy tính E6400 (ổ cứng 80 ram 2G )
- 02 BOB
- 01 board mở rộng cổng TCP/IP
- ATC : Mâm xoay hoặc gắp dao trên bàn XY (không bao gồm thay dao kiểu tay gắp)
Đồ nghề đã chuẩn bị đầy đủ chỉ còn chờ tủ về để tiến hành
Đính kèm 33318
Đính kèm 33319
Đính kèm 33320
7 Attachment(s)
Keyboard V1.0 đã có hàng để test
Keyboard UH-V1.0 lần đầu lắp trên máy Kitamura Mycenter1
ATC Tap Drill Fanuc Model F - Mach3
https://youtu.be/5wAwhgBEVog
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)
ATC Tap Drill Fanuc Model D - Mach3
ATC Brother Tap Drill Center Version 1
https://youtu.be/f-US3XmAkcs
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
Edit Mach3 Siemen - Machscreen V1.68
Thêm nút chức năng cho giao diện Mach3 Siemen
https://youtu.be/9Bfbjp3IiLE
Với màn hình 7inc độ phân giải để ở 1280x768
https://youtu.be/OGdmZfNRAnA