内腔铣削加工的宏程序编程实例

N10 G65 H02 P#100 Q#509 R#507 #100=#509+#507=D+K；
N20 G65 H04 P#102 Q#509 R2；
N30 G65 H26 P#102 Q#508 R100 #102=直径×#508/100(直径×T/100)；
N40 G65 H02 P#102 Q#102 R1 #102=#102+1；
N50 G65 H02 P#103 Q#500 R#100 #103=X+D+K；
N60 G65 H02 P#104 Q#501 R#100 #104=Y+D+K；
N70 G65 H02 P#105 Q#500 R#505；
N80 G65 H03 P#105 Q#105 R#100 #105=X+I-(D+K)；
N90 G65 H02 P#106 Q#106 R#506；
N100 G65 H03 P#106 Q#106 R#100 #106=Y+J-(D+K)；
N110 G65 H02 P#107 Q#502 R#507 #107=Z+K；          为Z方向终点切削坐标值
N120 G90 G00 X#104 Y#104； 定位于A点(XY平面)
N130 Z#503；                                       定位R点(Z轴方向)
N140 G65 H01 P#108 Q#503；
N150 N100 G65 H03 P#108 Q#108 R#504#108=R+Q；
N160 G65 H85 P110 Q#108 R#107 IF #108≥Z+K, THEN N110；
N170 G65 H01 P#108 R#107 IF #108＜Z+K, #108=#107；
N180 N110 G1 Z#108 F#511；                         Z 轴以速度E 切深Q.
N190 X#105 F#510；                                 X 向以速度F 切至#105
N200 G65 H01 P#109 Q1 #109=1；                     Y 向切削次数
N210 N120 G65 H04 P#110 Q#109 R#102#110=#109×#102+#104；
N220 G65 H02 P#110 Q#110 R#104；
N230 G65 H86 P130 Q#110 R#106 IF #110≤#106, THEN N130；
N240 G65 H01 P#110 Q#106                           否则,#110=#106；
N250 N130 Y#110；                                  Y 向以速度F 切至#110
N260 G65 H23 P#111 Q#109 R2 #111；                 Y 向切削的奇偶次(0,1)
N270 G65 H81 P140 Q#111 R0；
N280 X#103 偶次(2,4,6 ..)；                        X 向以速度F 切至#103
N290 G65 H80 P150；
N300 N140 X#105 奇次(1,3,5 ..)；                   X 向以速度F 切至#105
N310 N150 G65 H02 P#109 Q#109 R1 #109=#109+1；
N320 G65 H84 P-120 Q#110 R#106 IF #110＜#106,THEN N120；
N330 G00 Z#503；                                       Z 轴快速返回R 点
N340 X#103 Y#104；                                     X、Y 轴快速定位#103,#104
N350 G65 H86 P200 Q#108 R#107 IF #108≤#107 THEN N200；    加工结束.
N360 G65 H02 P#112 Q#108 R1000 #112=#108+1MM；
N370 G65 H04 P#113 Q#511 R8 #113=8×E；
N380 G01 Z#112 F#113；                Z 轴以速度8×E运动至离上次切削平面1 毫米
N390 G65 H80 P-100；                   转向N100 继续循环加工.
N400 N200 M99；