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