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