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 "F4" 'slow down feedrate to 4 ipm Rem Probe In the z direction ZNew = GetDro(2) - 2 'probe move to current z - 2 inches Code "G31Z" &ZNew While IsMoving() 'wait for probe move to finish Wend 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 + .25 Code "G0 Z" &ZNew 'put the Z retract height you want here Code "(Z axis zeroed to work piece)" 'puts this message in the status bar End If Code "F" &CurrentFeed 'Returns to prior feed rate End If