cnc-club.ru

Код: Выделить всё

PlateOffset=1.5          'толщина щупа мм.
Zup=50                'Расстояние на которое подымиться фреза после поиска
MaxZPlus=165 'максимальный ход Z мм.
Rem   VBScript To probe In the z axis

If GetOemLed (825) <> 0 Then       'Check to see if the probe is already grounded or faulty
   Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
   Code "G4 P1"          'Пауза .
   PlateOffset = GetUserDRO(1151)
   CurrentFeed = GetOemDRO(818)    'Запоминаем скорость до поиска.
   Code "F50"          'Скорость подачи до касания инструментом

Rem   Probe In the z direction
   ZNew = GetDro(2) - MaxZPlus
   Code "G31Z" &ZNew       ' Поиск
   While IsMoving()       'ждать выполнение команды10
   Wend

   ZNew = GetVar(2002)       'считываем какое то поле
   Code "G0 Z" &ZNew + 3      'подымаемся на +3мм
   While IsMoving ()       ' ждем выполнение команды
   Wend

   Code "F20"          'замедляем скорость для повторного касания
   ZNew = GetDro(2) - 6
   Code "G31Z" &ZNew       'Щупаем
   While IsMoving()       'ждать выполнение команды
   Wend

   If PlateOffset <> 0 Then
      Call SetDro (2, PlateOffset)    'записываем в поле новое значение
      Code "G4 P0.25"       'пауза
      ZNew = PlateOffset + Zup    'вычислени точки подьема
      Code "G0 Z" &ZNew       'подымаемся
      While IsMoving () ' ждем выполнение команды
      Wend
      Code "(Z axis is now zero !)" 'пишем в строку состояние сообщение
   End If

   Code "F" &CurrentFeed       'восстанавливаем скорость которая была до нажатия кнопки.
Sleep 100
End If