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 = 4.2           
   CurrentFeed = GetOemDRO(818)    'Get the current feedrate to return to later
   Code "F20"               

Rem   Probe In the z direction
   ZNew = GetDro(2) - 15         
   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 P1"          'Pause for Dro to update.
      ZNew = PlateOffset + 5      
      'ZNew = 5            ' as variant. But ZNew coordinate should be more than a thickness of a plate
      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

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