Sinumerik разфрезировка круглых карманов

[Aura Ponosa 0]

Поделитесь пожалуйста примером программы с параметрическим программированием на расфрезировку круглого кармана с врезанием по спирали, желательно с комментариями

[Ander 152]

WORKPIECE(,"",,"RECTANGLE",64,0,-16,-80,80,80)
T="frz10"
M6
S2000 F999 M3
R1=0   ;start_Z
R2=5  ;step_Z
R3=-5 ;end_Z
R4=40  ;R_flange
R5=1  ;step_XY
R6=15   ;step_angular
R7=5   ;R_tool
R8=5   ;R_enry
R9=5   ;step_entry
;
R15=R4-R7     ;Rmax_pass
R16=R5/360*R6 ;delta_R
;
WHILE R1>R3   ;Z
R21=R1      ;previos_Z
R17=(R1-R2)>R3   ;1 or 0
R1=(R1-R2)*R17-R3*(R17-1)
  G0 X=R8 Y0
  Z=R21+3
;
WHILE R21>R1 ;entry
  G1 X=R8 Y0 Z=R21
R17=(R21-R9)>R1   ;1 or 0
R21=(R21-R9)*R17-R1*(R17-1)
   G3 X=R8 Y0 Z=R21 I=-R8
ENDWHILE
   X=R8 Y0 I=-R8
;
R23=R8;start_spiral
R24=0 ;start_angle
WHILE R23<R15;arhimed
R17=R23+R16<R15   ;1 or 0
R23=(R23+R16)*R17-R15*(R17-1)
R24=(R24+R6) MOD 360
R25=R23*COS(R24); X
R26=R23*SIN(R24); Y
G3 X=R25 Y=R26 CR=R23
ENDWHILE
I=AC(0)J=AC(0)
G0 Z=IC(+1)
;
ENDWHILE
G0 Z99 M2
 

 

Edited October 23 by Ander