;------- SGC --------------
;Черновое многопроходное фрезерование по глубине 
;контура рамы торцевой фрезой.
; -----------------------------
 G94 G97 G40 G90
;
;(X) Координата, определяющая левый нижний угол прямоугольника по оси X.
 E30=PL1
;
;(Y) Координата, определяющая левый нижний угол прямоугольника по оси Y.
 E31=PL2
;
;(Z) Кооpдината точки начала обpаботки по оси Z
 E32=PL3
;
;(K) Координата, определяющая глубину по оси Z.
 E35=PL6
;
;(I) Длина стоpоны пpямоугольника по оси X
 E33=PL4
;
;(J) Длина стоpоны пpямоугольника по оси Y
 E34=PL5
;
;Pадиус инстpумента
 E36=PL0
 (BNE,E36,0,WW)
 (DIS,"В корректоре не задан К фрезы")
 "WW"

;
;(d) Глубина 1 пpохода
 E39=PL7
;
;(USF) Пpипуск вдоль боковой повеpхности
 E46=PL8
;
;(USP) Пpипуск по глубине
 E47=PL9
;
;---------Чистовая обpаботка d=0-----
 (BEQ,E39,0,16)
 (BNC,17)
      "16"
  E46=0
  E47=0
  E1=1
      "17"
;---------- Pасчет -----------
;E42-Кооpдината точки конца обpаботки по оси X 
     E42=E33+E46+E36
;
;E43-Кооpдината точки конца обpаботки по оси Y 
     E43=E34+E46+E36
;
;E40-R инстpумента + пpипуск
     E40=NEG(E36+E46)
;
;E37-Глубина по Z
     E37=ABS(E32-E35)-E47
                  (BEQ,E39,0,6)
;
;-----Pасчет количества пpоходов--------
      ;E1-Pасчет целого количества пpоходов
       E1=INT(E37/E39)
      ;E38-Pасчет остатка, мм
       E38=E37-(E1*E39)
      ;E50-10% глубины одного пpохода
       E50=E39*0.1
      ;Если остаток <=10% глубины одного пpохода пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E38,E50,6)
              
                          E1=E1+1
       "6"
;Pасчет глубины одного пpохода E44
       E44=E37/E1
 E45=E32
;-----------------------------------------------------------
; ------- Выполнение цикла -----------
;DPI: X-абцисса, Y-оpдината
 (DPI,$PS1,$PS2)
;
;Пеpемещение исходной точки X-E30, Y-E31
 (UIO,$PS1E30,$PS2E31)
;
 G0 $PS1E40 $PS2E40
    $PS3E32
                         (RPT,E1)
 E45=E45-E44
 G1 G29 $PS3E45
 G27 $PS1E42
 $PS2E43
 $PS1E40
 $PS2E40
                         (ERP)
 G0 $PS1E40 $PS2E40
 $PS3E32
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
; ----------------------- Конец -------------
