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

Обновлено24.01.2019 - 08: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 кнопки уменьшения порядка:
[code]SetOEMDRO(1000,GetOEMDRO(1000 )/10)[/code]

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

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

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

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

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

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

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

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

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

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

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

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

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