Através de Macros programadas em VB (Visual Basic) é possível criar rotinas e automatizar tarefas dentro do Mach3. Criando movimentos, lendo sinais de sensores, calculando fórmulas e executando rotinas dentro do próprio Software.

A Macro Auto-Center Zero faz Zeramento Automático nos eixos X e Y.
O Zeramento é feito com apenas um click do mouse. Além disso garante precisão centesimal já que o processo é eletrônico e digital através de um pulso elétrico.

Auto Tool Zero:

• Zeramento Automático
• Precisão Centesimal
• Com apenas 1 click

---

O Mach3 faz o zeramento automático em relação aos eixos X e Y.
Ideal para zeramento automático, posicionamento da peça, e calibração de peças.

MACRO: Auto-Center-XY-Externo: Download

Rem VBScript Sensor Probe para eixo XY EXTERNO

'WWW.MACHSUPORTE.COM.BR
'INICIO VARIAVEIS
VarZSEG=5 'Z de Seguranca - movimentacao rapida
VarZ=-5 'Z de Leitura / Probe
Diametro = 90 'Diametro aproximado do Circulo de Leitura
VarXY = 10 'Var XY
XyFeed = 50 'Feed-Rate XY de Leitura / Probe [mm/min]

If GetOemLed (825) <> 0 Then 'Checa se o Probe ja está ligado ou faltante
Code "(Probe ja ligado! cheque a conexao e tente novamente)"

Else
CurrentFeed = GetOemDRO(818) 'Get current feedrate
DoSpinStop() 'Desliga Spindle
XCurrent = GetOemDro(0)
YCurrent = GetOemDro(1)
DiamScan = (Diametro / 2) + 10


'init code
Code "G4 P1.0" 'Pausa de 1 Segundo
Code "F"& XyFeed
Code "G92 X0 Y0"


Rem Probe Left
Code "G0 Z" &VarZSEG
Code "G0 X" &XyMove * -1
Code "G0 Z" &VarZ
XNew = Xcurrent - DiamScan
Code "G31 X" &XNew
Code "(Escaneando X-- ...)"
While IsMoving()
Sleep(200)
Wend
XPos1 = GetVar(2000)
Code "G0 X" &XPos1-1
Code "G0 Z" &VarZSEG
Code "G0 X" &XCurrent



Rem Probe Right
XNew = XCurrent + DiamScan
Code "G31 X" &XNew
Code "(Escaneando X++ ...)"
While IsMoving()
Sleep(200)
Wend
XPos2 = GetVar(2000)
Code "G0 X" &XPos1+1
Code "G0 Z" &VarZSEG

XCenter = (XPos1 + XPos2) / 2 'Calcula Centro X
Code "G0 X" &XCenter
While IsMoving ()
Sleep(200)
Wend



Rem Probe Up
YNew = YCurrent + DiamScan
Code "G31 Y" &YNew
Code "(Escaneando Y++ ...)"
While IsMoving()
Sleep(200)
Wend
YPos1 = GetVar(2001)
Code "G0 Y" &YPos1-1
Code "G0 Z" &VarZSEG
Code "G0 Y" &YCurrent



Rem Probe Down
YNew = YCurrent - DiamScan
Code "G31 Y" &YNew
Code "(Escaneando Y-- ...)"
While IsMoving()
Sleep(200)
Wend
YPos2 = GetVar(2001)
Code "G0 Y" &YPos1+1
Code "G0 Z" &VarZSEG

YCenter = (YPos1 + YPos2) / 2 'Calcula Centro Y
Code "G0 Y" &YCenter
While IsMoving ()
Sleep(200)
Wend



Code "(XY Center OK - machsuporte.com.br)"
Code "F" &CurrentFeed 'restore starting feed rate
End If

PROCEDIMENTO:
#1: Clique em: Operator >> Edit Button Script.
(Na tela do Mach3, vários botões vão começar piscar em branco.)

#2: Clique sobre um dos botões piscando para abrir a janela de edição da Macro.

#3: Copie e Cole a Macro acima dentro da janela de edição e clique em Salvar.

Após configurada a Macro Auto Tool Zero de Zeramento Automático, pode ser chamada a qualquer momento clicando sobre o botão escolhido previamente.

---