Scribd
Upload
181 views

Mach3 Auto Tool Zero

This document provides instructions for automatically zeroing a tool using a probe in Mach3. It gets the current feed rate, checks if the probe is grounded, zeros the Z-axis, moves the probe down to detect contact and get the Z position, returns to that position, updates the Z-axis DRO reading, retracts the tool, and returns the feed rate while displaying status messages.

Uploaded by

Jacpro Automation Sac
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
181 views

Mach3 Auto Tool Zero

This document provides instructions for automatically zeroing a tool using a probe in Mach3. It gets the current feed rate, checks if the probe is grounded, zeros the Z-axis, moves the probe down to detect contact and get the Z position, returns to that position, updates the Z-axis DRO reading, retracts the tool, and returns the feed rate while displaying status messages.

Uploaded by

Jacpro Automation Sac
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

Mach3 Auto Tool Zero

Fl Coñ'9 FunñonC? Via Wiads Operaor Puj»ConCml Help

C anI a 0 ffL ne
Ma nten anc e Hours *
YB StripI Edifo r
Edrt Button 5c npt
Set No ma C ond t o n
Resto re Settin gs .

B a n Cont a
B a n Ld tor
Ch eck C anf
g

FI t€g'• No F e oaded

Sin gle BLK Alt-N

Auto Tool Zero

RememberReturn
Safe Z On/Ofi

_‘_!I Hid denScript.m1s - Mach 3 '/B Scipt EJ


itcr File Edit Run Debug Breakp oints

CurrontFood = 6ot0omDR0(818) '6ot the current loodrato to return to later


'Z-plate thickness DRO
I I Get OemLed ( 8 2 S ) = 0 Then 'Check to see i1 the probe is already grounded or laulty
'zero the Z axis so the probe move cill start lrom here
two second delay
“ d ' ' Gt —3 FT 0 0 ” 'Z goes dovn a max o1 20mm at 100mm/min
Uhile Is¥oving() ' ma i t Chi I e i t happens
Vend
ZProboPos = GotVar(2002) 'got the axact point the probe vas hit
Code "6U Z" &ZProboPos 'go back to that point. alvays a very small amount o1 overrun
Uhi ie I stony i ng ( )
Uend
Cal 1 Set Drn ( 2 Pla t eThi okness ) ' set t he Z axis DRO tn sha t ever is set as pla t e t hi okness
Cnde " G4 P0 . 2 S " ' Pause I Or DrO t O upda t e .
Cnde " G0 Z6 3 S " ' re t raw t Z tn 6 3 San
Code " ( Zs ax si i nut z erred ) " ' putss thi message in t he sta t us bar
COde " F " fiCurren tFeed ' Ret urns tO pr i Or £ eed rate
Else
Code "(Z-Plate is grounded. check connection and try again)" 'this goes in the status bar i1 aplicablo
Exit Sub
End 11

Ready “ ” * ‘ ”’
L n 1, Col 1 NUM
' Copy this script to Mach3 Button VB Script Editor

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later

PlateThickness = 5.0 'Z-plate thickness


' (You need to change value to match your Plate Thinckness)

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty

DoOEMButton (1010) 'zero the Z axis so the probe move will start from here

Code "G4 P2" ' two second delay

Code "G31 Z-30 F100" 'Z goes down a max of 20mm at 100mm/min

While IsMoving() 'wait while it happens

Wend

ZProbePos = GetVar(2002) 'get the axact point the probe was hit

Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun

While IsMoving ()

Wend

Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness

Code "G4 P0.25" 'Pause for Dro to update.

Code "G0 Z6.35" 'retract Z to 6.35mm

Code "(Z axis is now zeroed)" 'puts this message in the status bar

Code "F" &CurrentFeed 'Returns to prior feed rate

Else

Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable

Exit Sub

End If
HidderiScript.mls - Mach3 VB Scipt Editor
Edit Rctn Debug BreakP oints
Open File..

tOemDRO(818) 'Get the current leedrate to return to later


Save As.. 5 0 'Z-plate thickness DRO
Close Fiie 5)=0 Then 'Check to see i1 the probe is already grounded or laulty
Options... ton (1010) 'zero the Z axis so the probe move will start lrom here
two second delay
1 Z-30 F100” 'Z goes dcmn a max o1 20mm at 100mm/min
While Isfloving()
Wend 'wait while it happens

ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos 'get the axact point the probe was hit
'go back to that point. always a very small amount o1 overrun
While Isfloving ()
Wend

Call SetDro (2. PlateThickness) 'set the Z axis DRO to whatever is set as plate
thickness Code "G4 PO.25" 'Pause 1or Dro to update.
Code "G0 Z6 35" 'retract Z to 6
35mm Code "(Z axis Ss now zeroed)" 'puts this message in the status
bar Code "F" &CurrentFeed 'Returns to prior leed rate
Else
Code "(Z-PIate is grounded. check connection and trg again)" 'this goes in the status bar i1 aplicable
•Ex i t Sub
. End I I

You might also like