Scribd
Upload
14 views

Z Zero Script for Auto Tool Zero

This VBScript is designed to probe the Z-axis of a machine, accommodating both Imperial and Metric units. It checks if the probe is grounded, pauses for positioning, and performs probing operations while adjusting feed rates and offsets. The script concludes by zeroing the Z-axis based on the plate thickness and returning to the previous feed rate.

Uploaded by

petraru stefan
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
14 views

Z Zero Script for Auto Tool Zero

This VBScript is designed to probe the Z-axis of a machine, accommodating both Imperial and Metric units. It checks if the probe is grounded, pauses for positioning, and performs probing operations while adjusting feed rates and offsets. The script concludes by zeroing the Z-axis based on the plate thickness and returning to the previous feed rate.

Uploaded by

petraru stefan
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 3

Rem VBScript To probe In the z axis

If GetOemLED(801) Then 'NOTE: This script is for Inches as


Native Units

If GetOemLed (825) <> 0 Then 'check to see if the probe is


already grounded or faulty
Message "Z-Plate is grounded, check connection and try again"
'this goes in the status bar if aplicable
Else
Code "G4 P1" 'pause 1 seconds to give time to position
probe plate
PlateOffset = GetUserDRO(1151) 'get plate offset DRO
CurrentFeed = GetOemDRO(818) 'get the current feedrate to
return to later
Code "F12" 'slow down feedrate to 12 ipm

Rem Probe In the z direction


ZNew = GetOEMDro(802) - 6 'probe move to current z - 6 inches
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend

ZNew = GetVar(2002) 'read the touch point


Code "G0 Z" &ZNew +.05 'move back +.1 to hit point incase
there was overshoot +.1
While IsMoving ()
Sleep(10)
Wend

Rem End add lines

Code "F1" 'slow down feedrate to 2 ipm


ZNew = GetOEMDro(802) - .1 'probe move to current z - .25
inches
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend

ZNew = GetVar(2002) 'read the touch point


Code "G0 Z" &ZNew 'move back to hit point incase there was
overshoot
While IsMoving ()
Sleep(10)
Wend

If PlateOffset <> 0 Then


Call SetOEMDro (802, PlateOffset) 'set the Z axis DRO to
plate thickness
Code "G4 P0.25" 'pause for Dro to update.
ZNew = PlateOffset + .937 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Sleep(10)
Wend
Message "Z axis is now zeroed in Imperial units" 'puts this
message in the status bar

End If

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


End If
Else 'NOTE: This portion of script is for
Metric as Native Units

If GetOemLed (825) <> 0 Then 'check to see if the probe is


already grounded or faulty
Message "Z-Plate is grounded, check connection and try again"
'this goes in the status bar if aplicable
Else
Code "G4 P1" 'pause 1 seconds to give time to position
probe plate
PlateOffset = GetUserDRO(1151) 'get plate offset DRO
CurrentFeed = GetOemDRO(818) 'get the current feedrate to
return to later
Code "F300" 'slow down feedrate to 300 mmpm

Rem Probe In the z direction


ZNew = GetOEMDro(802) - 150 'probe move to current z - 150
mm
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend

ZNew = GetVar(2002) 'read the touch point


Code "G0 Z" &ZNew + 3 'move back + 3 mm to hit point
incase there was overshoot + 3 mm
While IsMoving ()
Sleep(10)
Wend

Rem End add lines

Code "F50" 'slow down feedrate to 50 mmpm


ZNew = GetOEMDro(802) - 6 'probe move to current z - 6 mm
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend

ZNew = GetVar(2002) 'read the touch point


Code "G0 Z" &ZNew 'move back to hit point incase there was
overshoot
While IsMoving ()
Sleep(10)
Wend

If PlateOffset <> 0 Then


Call SetOEMDro (802, PlateOffset) 'set the Z axis DRO to
plate thickness
Code "G4 P0.25" 'pause for Dro to update.
ZNew = PlateOffset + 20 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Sleep(10)
Wend
Message "Z axis is now zeroed in Metric units" 'puts this
message in the status bar

End If

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


End If
End If

You might also like