 ;22.04.2021 KRAUTER G.
 ;========================================
 ;D07 - Отверстия по окружности
 ;========================================
 ;
 G0 G94 G97 G40 G90 G29

 ;==============Вычисление № процесса=============
(BGE,SK25,80,5)
(BGE,SK25,80,4)
(BGE,SK25,80,3)
(BGE,SK25,80,2)
E15=0
(BNC,PROEND)
"2"
E15=1
(BNC,PROEND)
"3"
E15=2
(BNC,PROEND)
"4"
E15=3
(BNC,PROEND)
"5"
E15=4
"PROEND"
  
;===================Начальные условия=====================

;Координата центра окружности по оси абсцисс
E350=PL1
;Координата центра окружности по оси ординат
E351=PL2
;Диаметр окружности
E352=PL3
;Начальный угол
E25=PL4
;Шаг угла
E26=PL5
;Количество проходов
E1=PL6-1
;Безопасное расстояние
E355=PL7
;Координата поверхости заготовки
E356=PL8
;2-ое безопасное расстояние
E357=PL9
;Перемещение на безопасную высоту (0 или 1)
E358=PL10
;Перемещение между отв. (по прямой или по дуге)
E359=PL11  
 
 
 ;имя оси абсцисс
$PS1=$INAX1
;имя оси ординат
$PS2=$INAX2
;имя оси шпинделя
$PS3=$INAX3

;Определение направления обработки
(BGT,E26,0,PR)
E3=2
(BNC,PO)
"PR"
E3=3
"PO"


(DPI,$PS1,$PS2)
(UIO,$PS1E350,$PS2E351)

;Расчет координат первого отв.
; X = E352/2 , Y = 0
;E360 - координата текущая по X
;E361 - координата текущая по Y
;E27 - текущий угол
E27=E26
E360=E352/2
E363=E360
E370=E357+E356  
E371=E355+E356

(URT,E25)
;Перемещение на 2ое без расстояние
G0 $PS3 E370
;Перемещение в координату врезания
G0 $PS1 E360 $PS2 0 
 
 (CCL)

(RPT,E1)


  ;Перемещение на безопасное расстояние 
  (BEQ,E358,1,11)
     G0 $PS3 E371
    (BNC,22)
  "11"
    G0 $PS3 E370
  "22"


  ;Расчет следующей координаты
  ;X=COS(E27)
  ;Y=SIN(E27)

   E360=E363*COS(E27)
   E361=E363*SIN(E27)
   ;Угол
   E27=E27+E26

   ;Перемещение в следующую точку

   (BEQ,E359,1,DU)
       G $PS1 E360 $PS2 E361
      (BNC,LI)
   "DU"
      GE3 F3000 $PS1 E360 $PS2 E361 IJ
   "LI" 

   ;Обработка
    (CCL)

(ERP)

(URT,0)

 
E350=NEG(E350)
E351=NEG(E351)
(UIO,$PS1E350,$PS2E351)
 
 
 
 
 
  
  
 
;=====================================================================
 
 ;================================================================
 ;Конец цикла           
                