 ;23.03.2021 KRAUTER G.
 ;========================================
 ;D00 - Центровка
 ;========================================
 ;
 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"
  
;===================Начальные условия=====================
  
;Безопасное расстояние R1
 E101=PL1 
 ;Глубина обработки Z
 E102=PL2 
 ;Подача на врезание F
 E25=PL3 
 ;Координата поверхности заготовки (абсолютная) O
 E106=PL4 
 ;2-ой размер безопасности R2
 E107=PL5 
 ;Время выдержки внизу t2
 E108=PL6 
 
 
 ;====Координата сверления теперь задается вне цикла, а цикл запускается кодом (CCL)
 ;Координата отверстия по оси X
 ;E109=PL7 
 ;Координата отверстия по оси Y
 ;E110=PL8
 
  
  
  
;имя оси абсцисс
$PS1=$INAX1
;имя оси ординат
$PS2=$INAX2
;имя оси шпинделя
$PS3=$INAX3
  
;=============================================
;             РАСЧЕТЫ и ПЕРЕМЕЩЕНИЯ
;=============================================

 
   ;исходное значение Z
      E112=E106+E101

  ;Переход на безопасную высоту 
  G$PS3E112
  
  ;Переход в координату сверления
  ;G$PS1E109 $PS2E110

;========
;Переменные:
;E111 - текущая координата врезания.
;E201 - текущий остаток резания.
;E202 - текущая безопасная высота.

  FE25
  ;расчет координаты врезания
  E111=E106-E102
  ;врезание
  G1$PS3E111
  ;задержка внизу
  (DLY,E108)
  
  (BEQ,E107,0,R1)
  
  ;расчет координаты выхода с учетом ВТОРОГО безопасного расстояния
  E111=E106+E107
  (BNC,R2)
  
  "R1"
  ;расчет координаты выхода с учетом ПЕРВОГО безопасного расстояния
  E111=E106+E101
  
  "R2"
  ;выход
  G0$PS3E111
   
;=====================================================================
 ;================================================================
 ;Конец цикла           
                