Rem	VBScript To center probe inside a pipe

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
	FeedCurrent = GetOemDRO(818) 	'Get the current settings
	XCurrent = GetDro(0)
	YCurrent = GetDro(1)

	Code "G4 P1"			'Pause 1 second to give time to position probe plate
	Code "F100"			'slow feed rate to 4 ipm>>>100mpm 20090801SEC

Rem	Probe Left
	
	XNew = Xcurrent - 75		'probe 3 inches>>>75mm 20090801SEC to left
	
	Code "G31 X" &XNew
	While IsMoving()		'wait for the move to finish
	Wend
	XPos1 = GetVar(2000)		'get the probe touch location

	Code "G0 X" &XCurrent		'rapid move back to start point

Rem	Probe right
	
	XNew = XCurrent + 75		'probe 3 inches>>>75mm 20090801SEC  to right
	
	Code "G31 X" &XNew
	While IsMoving()
	Wend
	XPos2 = GetVar(2000)

	XCenter = (XPos1 + XPos2) / 2	'center is midway between XPos1 and XPos2
	Code "G0 X" &XCenter		'rapid move to the x center location

Rem	Probe up

	YNew = YCurrent + 75		'probe 3 inches>>>75mm 20090801SEC to
	
	Code "G31 Y" &YNew
	While IsMoving()
	Wend
	YPos1 = GetVar(2001)

	Code "G0 Y" &YCurrent

Rem	Probe down
	
	YNew = YCurrent - 75		'probe 3 inches>>>75mm 20090801SEC to

	Code "G31 Y" &YNew
	While IsMoving()
	Wend
	YPos2 = GetVar(2001)

	YCenter = (YPos1 + YPos2) / 2

Rem	move to the center
	
	Code "G0 Y" &YCenter
	While IsMoving ()
	Wend

	Code "F" &FeedCurrent  		'restore starting feed rate
End If