Eu copiei e colei este código no meu M6Start.m1s dentro da pasta de MAcros do MAch3, mas não funcionoum simplesmente não aconteceu nada existe algum codigo pronto que eu possa usar nao entendo nada de programação .
'Macro ToolChange Para trocador de ferramentas tipo cama
Sub Main()
OldTool = GetOEMDRO (1200) 'Ferramenta no fuso DRO Você deve adicionar isso à sua tela de configurações
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = ferramenta
'Macro do trocador de ferramentas (tipo de leito)
MaxToolNum = 8 'Número máximo de ferramentas para o trocador
ToolDown = -4 'Z Pos para obter ou soltar uma ferramenta
ToolUp = 0,0 'Z Hieght to Rapid de ferramenta para ferramenta
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Digite o número da nova ferramenta até " & 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) 'Ativa a barra Draw para liberar a ferramenta
Code "G4 P1.0" 'Esperar a liberação da ferramenta
'SystemWaitFor (7) 'Esperar a liberação da ferramenta Interruptor de limite
Código "G53 Z-2.5" & ToolUp
Chamar MovePos(NewTool)
While IsMoving()
Wend
Code "G53 Z " & ToolDown
Code "G4 P.75"
While IsMoving()
Wend
DeActivateSignal(Output1) 'Desligue a barra de tração para prender a ferramenta
Code "G4 P1.0" 'Espere a ferramenta prender
enquanto IsMoving()
Wend
Code "G53 Z" & ToolUp
Chamada SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Código "G00 X" & x & " Y" & y 'Volte para onde a troca de ferramenta foi solicitada
End Sub
Sub MovePos(ByVal ToolNumber As Integer)
Selecione Case ToolNumber
Caso Is = 1
Xpos = 3,568
YPos = 112,219
Caso Is = 2
Xpos = 9,812
YPos = 112,219
Caso Is = 3
Xpos = 15,969
YPos = 112,219
Caso Is = 4
Xpos = 22,308
YPos = 112,219
Caso Is = 5
Xpos = 28 0,559
YPos = 112,219
Case Is = 6
Xpos = 34.881
YPos = 112.219
Case Is = 7
Xpos = 41.076
YPos = 112.219
Case Is = 8
Xpos = 47.289
YPos = 112.219
End Select
Código "G53 X" & XPos & " Y" & YPos
End Sub
Main