【例4-8】 如图4-37所示，在一块平板上加工6个边长为10mm的等边三角形，每边的槽深为2mm，工件上表面为Z向零点。其程序的编制就可以采用调用子程序的方式来实现（编程时不考虑刀具补偿）。

主程序：

O1000；

N10 G54 G90 G01 Z40 F2000； 进入工件加工坐标系

N20 M03 S800 T0101； 主轴起动

N30 G00 Z3； 快速移动到工件表面上方

N40 G01 X0 Y8.66； 到1号三角形上顶点

N50 M98 P2000； 调2000号切削子程序切削三角形

N60 G90 G01 X30 Y8.66； 到2号三角形上顶点

N70 M98 P2000； 调2000号切削子程序切削三角形

N80 G90 G01 X60 Y8.66； 到3号三角形上顶点

N90 M98 P2000； 调2000号切削子程序切削三角形

N100 G90 G01 X0 Y-21.34； 到4号三角形上顶点

N110 M98 P2000； 调2000切削子程序切削三角形

N120 G90 G01 X30 Y-21.34； 到5号三角形上顶点

N130 M98 P2000； 调2000切削子程序切削三角形

N140 G90 G01 X60 Y-21.34； 到6号三角形上顶点

N150 M98 P2000； 调2000切削子程序切削三角形

N160 G90 G01 Z40 F2000； 抬刀

N170 M05； 主轴停

N180 M30； 程序结束

子程序：

O2000；

N10 G91 G01 Z-2 F100； 在三角形上顶点切入（深）2mm

N20 G01 X-5 Y-8.66； 切削三角形

N30 G01 X10 Y0； 切削三角形

N40 G01 X5 Y8.66； 切削三角形

N50 G01 Z5 F2000； 抬刀

N60 M99； 子程序结束(www.daowen.com)

设置G54：X=-400，Y=-100，Z=-50。

【例4-9】　用直径为20mm的立铣刀，加工如图4-38所示零件，要求每次最大背吃刀量不超过20mm。

图4-37 子程序应用

图4-38 轮廓铣削

（1）工艺分析

零件厚度为40mm，根据加工要求，每次背吃刀量为20mm，分两次切削加工。在这两次加工过程中，刀具在XOY平面上的运动轨迹完全一致，故把其切削过程编写成子程序，通过主程序两次调用该子程序完成零件的切削加工；中间两孔为已加工的工艺孔，设图示零件上表面的左下角为工件坐标系的原点。

（2）加工程序

O1000； 程序号

N010 G90 G92 X0 Y0 Z300； 使用绝对坐标方式编程，建立工件坐标系

N020 G00 X-50 Y-50 S800 M03； 快速进给至X=-50，Y=-50，主轴正转，转速800r/min

N030 G01 Z-20 F150； Z轴工进至Z=-20，进给速度150mm/min

N040 M98 P1010； 调用子程序O1010

N050 Z-45 F300； Z轴工进至Z=-45，进给速度300mm/min

N060 M98 P1010； 调用子程序O1010

N070 G00 X0 Y0 Z300； 快速进给至X=0，Y=0，Z=300

N100 M30； 主程序结束

O1010； 子程序号

N010 G42 G01 X-30 Y0 F300 D02 M08； 切削液开，直线插补至X=-30，Y=0，刀具半径右补偿D02=10mm

N0 20 X100； 直线插补至X=100，Y=0

N030 G02 X300 R100； 顺圆插补至X=300，Y=0

N040 G01 X400； 直线插补至X=400，Y=0

N050 Y300； 直线插补至X=400，Y=300

N060 G03 X0 R200； 逆圆插补至X=0，Y=300

N070 G01 Y-30； 直线插补至X=0，Y=-30

N080 G40 G01 X-50 Y-50 M09； 直线插补至X=-50，Y=-50，取消刀具半径补偿，切削液关

N100 M99； 子程序结束并返回主程序