Rem	VBScript To probe In the z axis

DoOemButton(1003)

If GetOemLed (825) <> 0 Then 		'Проверка нет-ди замыкания между датчиком и фрезой
	Code "(Z-Plate is grounded, check connection and try again)" 'Предупреждение выводимое в строку статуса если есть замыканае между датчиком и фрезой
Else
	'Code "G4 P1"				'Пауза 1 сек, чтобы дать время для установки
	Sleep 100
	PlateOffset = 13.3				'<--- !!!!!!!!!!!!!! Толщина датчика инструмента !!!!!!!!!!!!!!
	CurrentFeed = GetOemDRO(818) 	'Запоминаем текущую скорость подачи
	Code "F100"					'устанавливаем скорость подачи 
	Sleep 100

Rem	Probe In the z direction
	ZNew = GetDro(2) - 1000			'движемся  z - 50 mm
	Code "G31Z" &ZNew
	While IsMoving()				'ждём касания
	Wend

	'ZNew = GetVar(2002) 			'считываем точку касания
	'Code "G0 Z" &ZNew 			'вернуться в начало если небыло касания
	'While IsMoving ()
	'Wend

	If PlateOffset <> 0 Then
		Call SetDro (2, PlateOffset)	'присвоить значение толщины датчика координате Z
		'Code "G4 P1" 			'Пауза для обновления.
		Sleep 500
		ZNew = PlateOffset + 2		'ZNew = толщина датчика + 2 mm, где 2mm величина подъема от точки контакта с пластиной
		Sleep 100
		'ZNew = 2				' координата ZNew должна быть больше толщины датчика
		Code "G0 Z" &ZNew 		
		Code "(Z axis is now zeroed)" 	' Сообщение в строке состояния"
	End If

	Sleep 100
	Code "F" &CurrentFeed 		'Возврат к прежней подаче
End If