Autor Tópico: Alteração na Macro M6 (Lida 5510 vezes)

Edney Lima · « **Online:** 27 de Maio de 2016, 11:04 »

Bom dia Amigos Guia CNC.

Alguem poderia me dar uma ajuda na alteração da macro M6?

Como ficaria a macro M6 se eu quiser que quando eu programar:

T1
M6

o mach3 acionasse uma saida ex: (output2), movimentasse um motor de passo a "G53 G0 A60"

e quando programar

T2
M6

o mach3 acionasse a mesma saida ex: (output2) e movimentasse o mesmo motor de passo a uma posição "G53 G0 A120"

e assim sucessivamente para 6 posições na minha torre.

Tenho essa macro:
If GetSelectedTool() = GetCurrentTool() Then
End
End If

If GetSelectedTool = 1 Then
ActivateSignal(OutPut2)
Sleep 500
Code "G53 G0 A0"
While IsMoving()
Wend
Sleep 500
DeActivateSignal(OutPut2)
End If

If GetSelectedTool = 2 Then
ActivateSignal(OutPut2)
Sleep 500
Code "G53 G0 A45"
While IsMoving()
Sleep 500
Wend
DeActivateSignal(OutPut2)
End If

mas quando peço troca de ferramentas não acontece nada.

quando deixo só isso dentro da macro:

ActivateSignal(OutPut2)
Sleep 500
Code "G53 G0 A60"
While IsMoving()
Wend
Sleep 500
DeActivateSignal(OutPut2)

ela aciona a saida 2 e gira o motor de passo normalmente.

não tenho certeza, mas acredito que deve ser alguma escrita errada na linguagem
alguem poderia me dar uma ajuda, ficarei muito grato.

Edney

F.Gilii · « **Resposta #1 Online:** 27 de Maio de 2016, 13:33 »

Edney,

Fiz um "retrofitting" de um torno com magazine de 8 ferramentas, e usei uma macro parecidíssima como esta abaixo.

O magazine é rotativo através de motor de passo, e para que a macro funcione precisa que haja um sensor de origem no magazine justamente para que o cnc reconheça onde está a ferramenta 1 - o magazine possui uma espécie de catraca, então fui obrigado a criar uma rotina que fizesse o giro passando um pouco da posição de trava, e retornasse para garantir que travasse no ângulo correto.

Também foi necessário alterar um pouco a tela do Mach3 e incluir uma janela que indicasse que ferramenta estava presente na ultima troca.

Veja se te ajuda em algo - na sua logica me parece que falta algo que garanta a posição correta (em graus) do magazine...

Código: [Selecionar]

'M6Start.m1s
Message ("macro rodando")

OldTool = GetOEMDRO (1200)
Tool = GetSelectedTool()
MaxToolNum = 8 'Max quantidade de ferramentas no trocador

If OldTool = Tool Then
Message ("Ferramenta Selecionada já está cerragada")
Exit Sub
End If

While Tool > MaxToolNum
Tool = Question ("Qual a Estação desta Ferramenta? de 1 a " & MaxToolNum)
Wend

xval= getoemdro(800)	'pega valor de x
zval= getoemdro(802)	'pega valor de z
Call Dooembutton(138)
While IsMoving()
Wend


moveto = Tool- OldTool

If moveto<1 Then moveto=8+moveto

code "G91"	'inc mode
code "G00 A"+Str((moveto*45)+5)
code "G90"
While IsMoving()
Wend

code "G91"
code "G00 A-10"
code "G90"
While IsMoving()
Wend
code "G91"
code "G01 A-2 F100"
code "G90"
While IsMoving()
Wend

code "G90"	'abs mode

NewTool=Tool
If NewTool=1 Then
Call DoOemButton (1009)		'zero Y
End If


Call SetUserDRO (1200, NewTool)
SetCurrentTool(NewTool)
code "G0 Z"+Str(zval)		'retorna para posição inicial
code "G0 X"+Str(xval)		'antes da troca
While IsMoving()
Wend

Edney Lima · « **Resposta #2 Online:** 27 de Maio de 2016, 14:16 »

Boa Tarde Fabio

Muito interessante essa sua macro, acredito que vai me ajudar bastante, só vou precisar de um tempinho para entender sua macro.
Veja se entendi a respeito do sensor da ferramenta 1.

Esse sensor seria a referencia do eixo A?

A respeito da garantia do posicionamento da minha lógica, fiz um travamento mecânico.
Na minha lógica a saída 2 ira acionar uma solenoide de um cilindro pneumático que esse vai "destravar" a torre, e após destravar ira girar o motor de passo, assim que girar o motor de passo na posição, vai desacionar a solenoide e travar a torre na posição.

A principio estou fazendo com motor de passo, mas depois que estiver funcionando pretendo investir num servo motor de 100W para fazer o giro da torre.

Edney

F.Gilii · « **Resposta #3 Online:** 28 de Maio de 2016, 19:35 »

Legal...

Com relação à origem do eixo A (que aciona o magazine) achei necessário que reconheça um ponto de origem ou de partida - assim facilitou muito a vida da logica de controle

Edney Lima · « **Resposta #4 Online:** 30 de Maio de 2016, 14:01 »

Fabio

Muito obrigado

a linguagem de macros é linguagem C?

o Sr. tem algum manual ou tutorial que explica alguma coisa sobre a linguagem das macros?
se tiver envie pra mim por favor

[email protected]

grato
Edney

F.Gilii · « **Resposta #5 Online:** 30 de Maio de 2016, 15:03 »

No caso específico do Mach3 se usa VBscript (Cyperss Enable)...

http://www.machsupport.com/wp-content/uploads/2013/02/VBScript_Commands.pdf

Edney Lima · « **Resposta #6 Online:** 30 de Maio de 2016, 15:55 »

Obrigado, baixei o manual e vou estuda-lo

Edney Lima · « **Resposta #7 Online:** 06 de Junho de 2016, 11:19 »

Bom dia Amigos GuiaCNC

Com ajuda do Fabio, da apostila que ele nos postou, com ajuda de um amigo aqui de limeira, com ajuda da internet, consegui fazer minha macro m6 funcionar.

Agora vou finalizar o projeto mecanico e colocar minha torre pra funcionar hehehehehe

quero agradecer a todos que me ajudaram nessa empreitada.

Fabio, essa apostila que nos postou, existe em portugues?
Caso existir seria muito util para nós.

Reparei que o mach3 precisa reconhecer que existe um trocador automatico, para isso precisa mudar uma parametrização referente que existe um trocador automatico de ferramentas.

Edney

Edney Lima · « **Resposta #8 Online:** 06 de Junho de 2016, 11:20 »

Segue a foto do caminho da alteração para que reconheça um trocador automatico

Edney Lima · « **Resposta #9 Online:** 06 de Junho de 2016, 11:22 »

foto do caminho da alteração

Edney Lima · « **Resposta #10 Online:** 06 de Junho de 2016, 11:24 »

Esse procedimento para trocador automatico de ferramentas está correto?

Edney Lima · « **Resposta #11 Online:** 19 de Junho de 2016, 10:54 »

Bom dia

Nessa macro que tenho:

If GetSelectedTool() = GetCurrentTool() Then
End
End If

If GetSelectedTool = 1 Then
ActivateSignal(OutPut2)
Sleep 500
Code "G53 G0 A0"
While IsMoving()
Wend
Sleep 500
DeActivateSignal(OutPut2)
End If

If GetSelectedTool = 2 Then
ActivateSignal(OutPut2)
Sleep 500
Code "G53 G0 A45"
While IsMoving()
Sleep 500
Wend
DeActivateSignal(OutPut2)
End If

no casso acima só coloquei as trocas de 2 ferramentas mas as outras trocas é igual porem só muda o posicionamento,
mas eis um "probleminha" e uma duvida.

ainda estou em testes na bancada.

por exemplo:

percebi que quando estou trabalhando com a T1 e peço a T4 a torre se move normalmente, mas quando estou trabalhando com a T8 e quero a T1, ao invés de se mover direto pra T1 que seria o "caminho" mais curto, a torre se move voltando passando por todas as ferramentas e posiciona na T1.
Os posicionamentos estão corretos, mas a duvida é:

Tem como fazer alguma coisa dentro da macro para que ela se mova pelo "caminho" mais perto?

Edney

F.Gilii · « **Resposta #12 Online:** 20 de Junho de 2016, 09:36 »

Se o eixo A está configurado como rotativo, talvez se marcar a opção "Ang Short Rot on G0" (Angular short rotation on G0) na janela de configurações gerais...

Edney Lima · « **Resposta #13 Online:** 20 de Junho de 2016, 11:25 »

Bom dia

Grande Fabio.

Mais uma vez agradecido.
Testando somente no PC, funcionou.
Final de semana vou testar na bancada, com a torre

Edney

Edney Lima · « **Resposta #14 Online:** 20 de Junho de 2016, 12:47 »

Fabio

Te mandei uma MP

Edney

Notícias:

Alteração na Macro M6