jerry 发表于 2010-11-20 22:56:04

mach3 排刀式自动换刀宏程序 亲测成功

'ToolChange Macro For Bed type tool changer 11/05 Brian
Sub Main()
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 = 8      'Max number off tools for the changer
ToolDown   = -70 '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 ("Enter New Tool Number up to " & MaxToolNum)
Wend
Code "G00 G53 Z" & ToolUp
While IsMoving()
Wend
Call MovePos(OldTool)
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend
ActivateSignal(Output1) 'Turn On Draw bar to release the tool
Code "G4 P1.0"    'Wait for the tool to release
'SystemWaitFor (7) 'Wait for the tool Release Limit switch
Code "G53 Z" & ToolUp
Call MovePos(NewTool)
While IsMoving()
Wend
Code "G53 Z" & ToolDown
Code "G4 P.75"
While IsMoving()
Wend
DeActivateSignal(Output1) 'Turn Off Draw bar to Clamp the tool
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
         Xpos = 12.00
         YPos = 2.00
       Case Is = 2
         Xpos = 14.00
         YPos = 2.00
       Case Is = 3
         Xpos = 16.00
         YPos = 2.00
       Case Is = 4
         Xpos = 18.00
         YPos = 2.00
       Case Is = 5
         Xpos = 12.00
         YPos = 4.00
       Case Is = 6
         Xpos = 14.00
         YPos = 4.00
       Case Is = 7
         Xpos = 16.00
         YPos = 4.00
       Case Is = 8
         Xpos = 18.00
         YPos = 4.00
End Select

Code "G53 X" & XPos & " Y" & YPos
End Sub
Main

qjghj 发表于 2010-11-20 23:06:02

抢个沙发

peng65063 发表于 2010-11-20 23:47:11

怎么用啊？可以自动换刀吗？

peng65063 发表于 2010-11-20 23:47:35

怎么用啊？可以自动换刀吗？

jerry 发表于 2010-11-20 23:57:16

回复【3楼】peng65063
-----------------------------------------------------------------------

把上面的代码保存为M999.m1s（此M999自己随便命名） 然后copy到C:\Mach3\macros\Mach3Mill文件夹，在MDI下输入T+刀号+M999（T1M999），执行就开始换刀了

Popo 发表于 2010-11-21 00:23:53

机械部分是只啥样？

DSP_2812 发表于 2010-11-21 09:59:07

关注

BT.ROBOT 发表于 2010-11-21 10:57:31

呵呵，记号，

tycom 发表于 2010-11-21 12:28:06

关注中。。。。。可否上视频给大家学习学习。

jerry 发表于 2010-11-22 10:07:12

点击此处打开 ourdev_599561HWCRV9.gif(文件大小:1.41M，只有400K以内的图片才能直接显示) (原文件名:pneumatisch.gif)

wxws 发表于 2010-11-26 05:54:47

精雕首页视频 有看到这种排刀架

GuDaoFan 发表于 2010-11-26 08:04:37

mark

samkkk 发表于 2010-11-26 15:18:04

mark1!!

newsyii 发表于 2011-3-28 00:14:04

为什么在手动编程里输入 T06 M60 座标动都不动呢我把代码保存成M60.mls 按上面说的做了

四川李工 发表于 2012-6-29 23:01:39

自定义的M码 牛逼

duanyz 发表于 2014-6-27 22:52:09

请教楼主这些是什么意思啊，怎么程序后面没提到这里的"x\y\z\a\b\c"呢？

xiaolaoyu 发表于 2014-12-7 18:21:04

关注   

kaixiang 发表于 2015-5-24 22:00:46

高手 在 详细介绍介绍 根好谢谢

AllEle 发表于 2015-5-24 22:15:02

学习学习
页: [1]
查看完整版本: mach3 排刀式自动换刀宏程序 亲测成功