Гружусь

Панель коррекции положения инструмента

Обновлено 24.01.2019 - 06:27

Очень часто при выполнении однотипных простых задач, таких как сверление отверстий в заготовках
, выпиливание изделий из небольших заготовок, требуется небольшая корректировка положения инструмента в координатной плоскости.

Для того чтобы увеличить глубину фрезеровки на 0.4мм нужно показание положения координаты по оси Z увеличить на 0.4, если текущее положение по оси Z=3.75, нужно в ввести значение 4.15, каждый раз приходиться высчитывать новое значение координаты, что крайне неудобно.

Для облегчения данной задачи сделаем панель коррекции положения инструмента, в которой вводим значение перемещения и нажимаем кнопку перемещения инструмента в нужной плоскости, после нажатия кнопки инструмент перемещается, с сохранением значения координатной плоскости, которое было до перемещения. Значения вводятся предопределенными кнопками или вручную с завершением ввода кнопкой ENTER на клавиатуре.

Панель коррекции положения инструмента

С помощью программы Machscreen редактируем экран Mach добавляем свой DRO с OEM кодом 1000, в которое будем вводить значение перемещения, добавляем кнопки предварительного ввода значений 0.1, 0.2, 0.5, кнопки увеличения и уменьшения значения ввода на порядок.

Execute code кнопки уменьшения порядка:

SetOEMDRO(1000,GetOEMDRO(1000 )/10)

Execute code кнопки увеличения порядка:
SetOEMDRO(1000,GetOEMDRO(1000 )*10)

Execute code кнопки предварительного значения 0.1:
SetOEMDRO(1000,0.1 )

Execute code кнопки предварительного значения 0.2:
SetOEMDRO(1000,0.2 )

Execute code кнопки предварительного значения 0.5:
SetOEMDRO(1000,0.5 )

Можно изменить или добавить кнопки со своими предварительными значениями.

Execute code кнопки увеличения значения по оси X:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (800)
Call SetDRO(0,Title-ABS(GetOEMDRO(1000)))
Code ("G0 X"& Title)

Execute code кнопки уменьшения значения по оси X:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (800)
Call SetDRO(0,Title+ABS(GetOEMDRO(1000)))
Code ("G0 X"& Title)

Execute code кнопки увеличения значения по оси Y:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (801)
Call SetDRO(1,Title-ABS(GetOEMDRO(1000)))
Code ("G0 Y"& Title)

Execute code кнопки уменьшения значения по оси Y:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (801)
Call SetDRO(1,Title+ABS(GetOEMDRO(1000)))
Code ("G0 Y"& Title)

Execute code кнопки увеличения значения по оси Z:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (802)
Call SetDRO(2,Title-ABS(GetOEMDRO(1000)))
Code ("G0 Z"& Title)

Execute code кнопки уменьшения значения по оси Z:
Sleep(100)
While IsMoving ()
Sleep(100)
Wend
Title =GetOEMDRO (802)
Call SetDRO(2,Title+ABS(GetOEMDRO(1000)))
Code ("G0 Z"& Title)


Если Вам понравилось статья Панель коррекции положения инструмента , поделитесь с друзьями :

html-cсылка на публикацию
BB-cсылка на публикацию
Прямая ссылка на публикацию

Копирование информации без ссылки на публикацию запрещено!!!

Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.

  • 13 января 2019
  • admin
  • 935
Комментирование данной новости запрещено!