 ;08.04.2021 KRAUTER G.
 ;========================================
 ;D03 - Расточка
 ;========================================
 ;
 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 
 ;Подача обратного хода FBack
 E26=PL4 
 ;Координата поверхности заготовки (абсолютная) O
 E106=PL5

 ;2-ой размер безопасности R2
 E107=PL6
 ;Время выдержки внизу t2
 E108=PL7
 ;Направление выхода из материала
 E109=PL8
 
 
 ;Запоминание значение FRAPC
 PR401=FRAPC
 
 
  ;Если подача обратного хода =0, то приравнивается к подаче резания
  (BGT,E26,0,AAA)
     E26=E25
  "AAA"  
  
;имя оси абсцисс
$PS1=$INAX1
;имя оси ординат
$PS2=$INAX2
;имя оси шпинделя
$PS3=$INAX3
  
;=============================================
;             РАСЧЕТЫ и ПЕРЕМЕЩЕНИЯ
;=============================================
 
  ;исходное значение Z
      E300=E106+E101

  ;Переход на безопасную высоту 
      G$PS3E300

;========
;Переменные:
;E200 - текущая координата врезания.
;E201 - текущий остаток резания.
;E202 - текущая безопасная высота.
;E203 - параметр I в цикле 86
;E204 - параметр J в цикле 86


;Присвоение параметрам I и J цикла 
;86 значений в зависимости от 
;направления отхода
(BEQ,E109,1,22)
(BEQ,E109,1,33)
(BEQ,E109,1,44)
(BEQ,E109,1,55)
E203=0
E204=0
(BNC,66)
"22"
E203=-0.2
E204=0
(BNC,66)
"33"
E203=0
E204=-0.2
(BNC,66)
"44"
E203=0.2
E204=0
(BNC,66)
"55"
E203=0
E204=0.2

"66"


;Ноль переводится в координату поверхности
(UIO,$PS3E106)
;Определение текущих координат инструмента по X  и Y
(GTA,$PS1,1,E205)
(GTA,$PS2,1,E206)
  FE25
     ;Время выдержки внизу
  TMR=E108
     ;Стандартный цикл расточки G86  
  G86RE101$PS3E102IE203JE204
     ;FRAPC - переменная, отвечающая за подачу обратного хода
  FRAPC=E26
     ;Координаты отверстия, полученные через GTA ранее
  
  $PS1E205$PS2E206
     ;Конец цикла G86
  G80
  ;расчет координаты выхода на 1 безопасное расстояние
  E111=E106+E101
  
  ;====================
  ;ПОДАЧА НА ВЫХОДЕ
  
  
  G0$PS3E107
  
  ;Выход на второе безопасное расстояние 


  ;Возврат начальной точки в исходную
  E207=NEG(E106)
  (UIO,$PS3E207)
 
; M00
 
 
  ;Возврат значение FRAPC
 FRAPC=PR401
 
 
 ;================================================================
 ;Конец цикла           
                