'Макрос для автоматического привязывания по оси Z'

Dim H As String

code "G90"                     'абсолютная СК
code "G53 G0 Z-0.1"            'машинная СК,ускоренная подача, поднимаемся в самую высокую точку по Z
code "G53 G0 X-36.39 Y-51.27"       'машинная СК,ускоренная подача, едем в место установки датчика
code "M5"                      'выключить шпиндель
code "M9"                      'выключить СОЖ
code "G4 P4"                   'задержка 4с. для полного выключения шпинделя и СОЖ
code "G31 G91 Z-200 F300"      'опускаем фрезу по Z до касания датчика
While ismoving                 'дожидаемся конца движения
Wend
code "G91 G1 Z1"               'подпригиваем вверх на 1мм
code "G31 G91 Z-20 F100"       'опускаем фрезу по Z до касания датчика, на пониженной подаче
While ismoving                 'дожидаемся конца движения
Wend
         
Call SetDRO(2,GetUserDRO(1151))               'вписываем в окно координаты Z значение Н
code "G4 P1"                     'абсолютная СК
code "G90"                   'пауза 1с для успешной записи
code "G53 G0 Z-0.1"            'машинная СК,ускоренная подача, поднимаемся в самую высокую точку по Z