这里设计三个子程序，每个子程序完成一个图形的加工，程序如下：

O0100（MAIN）

G92 X80.0 Y40.0; 设定坐标系

M98 P0101; 调用子程序P1

G93 X0.0 Y0.0; 坐标平移

M50; 切断丝

G90 G00 X100.0 Y120.0； 快速移动

M60; 穿丝

M98 P0102; 调用子程序P2

G93 X0.0 Y0.0; 坐标平移

M50; 切断丝

G90 G00 X200.0 Y80.0; 快速移动

M60; 穿丝

M98 P0103; 调用子程序P3

M30; 程序结束

子程序调用切割实例

O0101（P1） 子程序P1

G93 X120.0 Y60.0; 坐标原点平移到矩形的右上角处

G90 G01 Y0.0; 绝对坐标从矩形中心到矩形上边中心处

X0.0; 到矩形右上角处

Y-40.0; 到矩形右下角处

X-80.0; 到矩形左下角处

Y0.0; 到矩形左上角处

X-40.0; 到矩形上边中心处

Y-20.0; 回到矩形的穿丝点（矩形切割的起点）

M99; 子程序结束返回主程序

O0102（P2） 子程序P2

G93 X100.0 Y80.0; 坐标平移三角形底边中间处

G90 G01 Y60.0; 到三角形顶点处

X40.0 Y0.0; 到三角形右下角处

Y-40.0; 到三角形左下角处

X0 Y60.0; 到三角形顶点处

Y40.0; 回到三角形的穿丝点（三角形切割的起点）

M99; 子程序结束返回主程序

O0103（P3） 子程序P3

G93 X200.0 Y80.0; 坐标平移到圆心处

G90 G01 Y40.0; 到圆以上圆上一点

G02 J-40.0; 顺时针切割圆

G01 Y0.0; 回到圆心处

M99; 子程序结束返回主程序