Rem VBScript To probe In the z axis If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty Code "(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 "F100" 'slow down feedrate to 4 ipm>>>100mmpm Rem Probe in the z direction ZNew = GetDro(2) - 50 'probe move to current z - 2 inches>>>50mm Code "G31 Z" &ZNew While IsMoving() 'wait for probe move to finish Wend REM Append 20090802SEC ------------------ Code "F20" Code "G0 G91 Z1" Code "G90 G31 Z" &ZNew While IsMoving() 'wait for the move to finish Wend Code "F100" REM -------------------------------------- ZNew = GetVar(2002) 'read the touch point Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot While IsMoving () Wend If PlateOffset <> 0 Then Call SetDro (2, PlateOffset) 'set the Z axis DRO to plate thickness Code "G4 P0.25" 'Pause for Dro to update. ZNew = PlateOffset + 5 '+5mm Code "G0 Z" &ZNew 'put the Z retract height you want here Code "(Z axis is now zeroed)" 'puts this message in the status bar End If REM Append 20090802SEC ------------------ If PlateOffset = 0 Then Call SetDro (2, 0) 'set the Z axis DRO to plate thickness Code "G4 P0.25" 'Pause for Dro to update. ZNew = 15 '+15mm Code "G0 Z" &ZNew 'put the Z retract height you want here Code "(Z axis is now zeroed 0 PlateOffset)" 'puts this message in the status bar End If REM -------------------------------------- Code "F" &CurrentFeed 'Returns to prior feed rate End If