求mach3 数控车电动刀架的换刀宏代码

yhzzp

如题，准备做一个迷你自动换刀的数控车。电动刀架已经有了，缺少换刀宏代码。翻了历史帖子，不全。求有这方面资料的坛友赐教。在此表示感谢！

tiantangqq

你搜下，有人发过

yhzzp

tiantangqq 发表于 2024-10-23 15:55
你搜下，有人发过

代码已经没有了

黑猫走夜路

找咪咪。咪咪有。

惠民

老兄不忘初心

yhzzp

惠民 发表于 2024-11-8 09:46
老兄不忘初心

人一生嘛！总要有一些自己喜欢的东西。

刘国军

我有你要不要了

yhzzp

刘国军 发表于 2025-4-5 21:06
我有你要不要了

要，在此表示感谢！请发邮箱：436040572@qq.com

刘国军

'Toolchanger  Macro For the M6Start Macro:
'Input1 == Tool #1
'Input2 == Tool #2
'Input3 == Tool #3
'Input4 == Tool #4

'Output4 raise/rotate turret
'Output5 rotate/Lock turret
'OEMDRO(1111) is utilized to store the last used tool (OldTool) and is updated

OldTool = GetOEMDRO (1111)
Tool = GetSelectedTool()
MaxToolNum = 4      'Max number of tools for the changer

If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If

While Tool > 4
Tool = Question ("Tool Error, Tool number to large Enter new tool number")
Wend

Call StartTool

While NewTool <> Tool
   Call CheckPins
   While IsMoving()
        Sleep(10)
   Wend
Wend

Call StopTool

Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)

'//// Subroutines /////////

Sub StartTool

   ActivateSignal(Output3)
      While IsMoving()
        Sleep(10)
      Wend
End Sub

Sub CheckPins
   If  IsActive(Input1)  Then
      NewTool = 1
           End If

   If  IsActive(Input2)  Then
      NewTool = 2
            End If

   If  IsActive(Input3)  Then
      NewTool = 3
           End If

   If  IsActive(Input4)  Then
      NewTool = 4
           End If
End Sub


Sub Stoptool

     DeActivateSignal(Output3)

   
    ActivateSignal(Output5)  
          Code "G4 P2.0"     
          While IsMoving()
          Sleep(5)
      Wend
      
      DeActivateSignal(Output5)
            While IsMoving()
          Sleep(5)
      Wend

  End Sub

刘国军

yhzzp 发表于 2025-4-6 07:41
要，在此表示感谢！请发邮箱：

你加我QQ吧79023159

干巴姜

刘国军 发表于 2025-4-6 09:29
'Toolchanger  Macro For the M6Start Macro:
'Input1 == Tool #1
'Input2 == Tool #2

感谢分享