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