Скрипт:
Rem VBScript To probe In the z axis

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

Rem Probe In the z direction
ZNew = GetDro(2) - 50 'Ищем на протяжении 50мм
Code "G31Z" &ZNew
While IsMoving()
Wend

ZNew = GetVar(2002)
Code "G0 Z" &ZNew
While IsMoving ()
Wend

If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset)
Code "G4 P0.25"
ZNew = PlateOffset + 10 'Высота подскока после касания
Code "G0 Z" &ZNew
Code "(Z axis is now zeroed)"
End If

Code "F" &CurrentFeed
End If

При замыкании программа не поднимает фрезу, что делать?