;Сверление отверстий разными способами
;В этой программе ноль детали по оси Z - это координата
;касания кончика сверла с плоскостью
;(стол или приспособление на которой установлена заготовка)
GZ80
;(UCG,2,XX200,Y0Y100,ZZ50,1,-3)
(UCG,2,X-5X300,Z0Z100,YY100,,)
;(UCG,1,XX200,Z0Z100)
;(UCG,2,XX200,YY100)
;условия для выполнения цикла сверления
G97G94G29
;скорость шпинделя
S300M3
;===========================================
;п.1)применение постоянного цикла G83 и параметрический
;    расчет координат сверления
(DIS,"Сетка 5 на 3 цикл G83")
;количество столбцов
E0=5
;количество строк
E1=3
;шаг между отверстиями по оси X
E65032=30
;шаг между отверстиями по оси Y
E65033=20
;координата 1-ого отверстия по X
E65040=0
;координата 1-ого отверстия по Y
E65041=0
;счетчик строк
E65042=0
;безопасное расстояние
G0Z80
;постоянный цикл глубокого сверления (руководство программиста)
;здесь могут быть G81, G82, G83, G84, G85, G86
;может быть также параметрирован (здесь параметры заданы явно - числами)
G83Z10I20J5K0.8R60R80F1000
;поворот плоскости абсцисса-ордината (XY) на 15 градусов
(URT,15)
;повторы по строкам
(RPT,E1)
;повторы по столбцам
(RPT,E0)
;перемещение в координату центра отверстия
XE65040 YE65041
;вычисление нечетной/четной строки (ряда отверстий)
E65043=MOD(E65042,2)
(BNE,E65043,0,NH1)
E65040=E65040+E65032
(BNC,NEXTH1)
"NH1"
E65040=E65040-E65032
"NEXTH1"
(ERP)
(BNE,E65043,0,NV1)
E65040=E65040-E65032
(BNC,NEXTV1)
"NV1"
E65040=E65040+E65032
"NEXTV1"
E65042=E65042+1
;координта следующей строки сетки
E65041=E65041+E65033
(ERP)
;отмена постоянного цикла
G80
;отмена поворота сетки
(URT,0)
;конец п.1)
;запрос: очистить графический экран
(CLG)
;===========================================
;п.2)===========================================
;Подготовительный визуальный цикл (здесь могут быть заданы следующие циклы:
;D00, D01, D02, D03, D04, D05) для ввода параметров достижения глубины
;отверстия. 
(D04,R10,Z40,F1000,I20,t1,O50,R20,t1,d5,J5,S10,L2,P,F2000,F3000)
;===========================================
;===========================================
;п.2.1)применение цикла визуального программирования D04 и параметрический
;    расчет координат сверления
(DIS,"Сетка 5 на 3 циклы CCL+D04")
;количество столбцов
E0=5
;количество строк
E1=3
;шаг между отверстиями по оси X
E65032=30
;шаг между отверстиями по оси Y
E65033=20
;координата 1-ого отверстия по X
E65040=0
;координата 1-ого отверстия по Y
E65041=0
;счетчик строк
E65042=0
;поворот плоскости абсцисса-ордината (XY) на 15 градусов
(URT,15)
;повторы по строкам
(RPT,E1)
;повторы по столбцам
(RPT,E0)
;перемещение в координату центра отверстия
G0 XE65040 YE65041
;вызов последнего выполненного подготовительного цикла;здесь D04
(CCL)
;вычисление нечетной/четной строки (ряда отверстий)
E65043=MOD(E65042,2)
(BNE,E65043,0,NH)
E65040=E65040+E65032
(BNC,NEXTH)
"NH"
E65040=E65040-E65032
"NEXTH"
(ERP)
(BNE,E65043,0,NV)
E65040=E65040-E65032
(BNC,NEXTV)
"NV"
E65040=E65040+E65032
"NEXTV"
E65042=E65042+1
;координта следующей строки сетки
E65041=E65041+E65033
(ERP)
;отмена поворота сетки
(URT,0)
;конец п.2.1)
(CLG)
;===========================================
;п.2.2)визуальный цикл сверления по окружности D07
(DIS,"Сетка 5 на 3 циклы D07+D04")
(D07,X50,Y50,D100,A30,a45,n4,R20,O50,R40,B,M1)
;конец п.2.2)
(CLG)
;===========================================
;п.2.3)визуальный цикл сверления по сетке D08 (аналог того, что п.1 и п2.1 )
(DIS,"Сетка 5 на 3 циклы D08+D04")
(D08,X10,Y10,a30,b20,n5,k3,A15,R20,O50,R40,B1)
;конец п.2.3)
(CLG)
M30
