例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 ao_4m SB
<
0M:"^f
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: yS(}:'`r
KnhoaBB
O0100(MAIN) ?S$i?\Qh
G92 X80.0 Y40.0;设定坐标系 3DgsI7-F
M98 P0101;调用子程序P1 ?<Wb@6kh`
G93 X0.0 Y0.0;坐标平移 azQ D>
M50;切断丝 ($w@Z/;
G90 G00 X100.0 Y120.0;快速移动 yXI >I
M60;穿丝 'y]\-T
M98 P0102;调用子程序P2 ".^VI2T
G93 X0.0 Y0.0;坐标平移 8K(Z0
M50;切断丝 zmj"fN{\
G90 G00 X200.0 Y80.0;快速移动 &8.NT~"Gg
M60;穿丝 ZF7IL
M98 P0103;调用子程序P3 2*"Fu:a"`I
M30;程序结束 
子程序调用切割实例
!-`Cp3gqHr zZcnijWb O0101(P1)子程序P1
tE6!+c<7 G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
E%oY7.~- G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
O$/o'"@ / X0.0;到矩形右上角处
AfeCK1mC @ Y-40.0;到矩形右下角处
bXUy9-L X-80.0;到矩形左下角处
~/^5) g_ Y0.0;到矩形左上角处
G,Z^g|6 X-40.0;到矩形上边中心处
/~*_x=p: Y-20.0;回到矩形的穿丝点(矩形切割的起点)
jls-@Wl M99;子程序结束返回主程序
sGh(#A0Pt 3rLTF\ O0102(P2)子程序P2
rc&%m G93 X100.0 Y80.0;坐标平移三角形底边中间处
Hbv6_H G90 G01 Y60.0;到三角形顶点处
WJ<^E"^ X40.0 Y0.0;到三角形右下角处
`.s({/|[ Y-40.0;到三角形左下角处
ARcB'z\r X0 Y60.0;到三角形顶点处
.ERO|$fv Y40.0;回到三角形的穿丝点(三角形切割的起点)
.920{G?l5 M99;子程序结束返回主程序
2'=T[<nNB 4_Dp+^JF O0103(P3)子程序P3
[Nn`l, G93 X200.0 Y80.0;坐标平移到圆心处
X7k.zlH7T G90 G01 Y40.0; 到圆以上圆上一点
l
Va &" G02 J-40.0;顺时针切割圆
rZ8`sIWQt G01 Y0.0; 回到圆心处
W9NX=gE4 M99;子程序结束返回主程序