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