****************************************************************

Rem	VBScript For probing In the x direction

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Probe plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
	Code "G4 P1"			'Pause 1 second to give time to position probe plate

	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F100"

Rem	Probe left

	XNew = GetDro(0) + 75		'probe to current position + 3 inches
	Code "G31 X" &XNew
	While IsMoving()		'wait for prob move to complete
	Wend
REM Append 20090802SEC	------------------
	Code "F20"
	Code "G0 G91 X-1"
	Code "G90 G31 X" &XNew
	While IsMoving()		'wait for the move to finish
	Wend
	Code "F100"
REM --------------------------------------

	XNew = GetVar(2000)		'read the touch point

Rem	move back to the hit point incase there was an overshoot
	
	Code "G0 X" &XNew
	While IsMoving ()
	Wend
	Code "F" &CurrentFeed 		'restore original feed rate
End If 

***************************************************************

Rem	VBScript For probing In the x direction

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Probe plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
	Code "G4 P1"			'Pause 1 second to give time to position probe plate

	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F100"

Rem	Probe left

	XNew = GetDro(0) - 75		'probe to current position - 3 inches
	Code "G31 X" &XNew
	While IsMoving()		'wait for prob move to complete
	Wend
REM Append 20090802SEC	------------------
	Code "F20"
	Code "G0 G91 X1"
	Code "G90 G31 X" &XNew
	While IsMoving()		'wait for the move to finish
	Wend
	Code "F100"
REM --------------------------------------

	XNew = GetVar(2000)		'read the touch point

Rem	move back to the hit point incase there was an overshoot
	
	Code "G0 X" &XNew
	While IsMoving ()
	Wend
	Code "F" &CurrentFeed 		'restore original feed rate
End If 

***************************************************************

Rem	VBScript For probing In the Y direction

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Probe plate is grounded, check connection and try again)"
Else
	Code "G4 P1"			'Pause 1 second to give time to position probe plate

	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F100"			'Slow feedrate to 4 ipm

Rem	Probe up

	YNew = GetDro(1) + 75		'move to current y position + 3 inches
	Code "G31 Y" &YNew
	While IsMoving()		'wait for the move to finish
	Wend
REM Append 20090802SEC	------------------
	Code "F20"
	Code "G0 G91 Y-1"
	Code "G90 G31 Y" &YNew
	While IsMoving()		'wait for the move to finish
	Wend
	Code "F100"
REM --------------------------------------

	YNew = GetVar(2001)		'read the touch point

Rem	move back to the hit point incase there was an overshoot
	
	Code "G0 Y" &YNew
	While IsMoving ()
	Wend
	Code "F" &CurrentFeed 		'restore original feed rate
End If

***************************************************************

Rem	VBScript For probing In the Y direction

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Probe plate is grounded, check connection and try again)"
Else
	Code "G4 P1"			'Pause 1 second to give time to position probe plate

	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F100"			'Slow feedrate to 4 ipm

Rem	Probe up

	YNew = GetDro(1) - 75		'move to current y position - 3 inches
	Code "G31 Y" &YNew
	While IsMoving()		'wait for the move to finish
	Wend
REM Append 20090802SEC	------------------
	Code "F20"
	Code "G0 G91 Y1"
	Code "G90 G31 Y" &YNew
	While IsMoving()		'wait for the move to finish
	Wend
	Code "F100"
REM --------------------------------------

	YNew = GetVar(2001)		'read the touch point

Rem	move back to the hit point incase there was an overshoot
	
	Code "G0 Y" &YNew
	While IsMoving ()
	Wend
	Code "F" &CurrentFeed 		'restore original feed rate
End If

***************************************************************


***************************************************************


***************************************************************