例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 @UvjJ
m@jOIt!<
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: n)pBK>+
r"rEVx#1=
O0100(MAIN) EQ7cK63
G92 X80.0 Y40.0;设定坐标系 TzPVO>s
M98 P0101;调用子程序P1 sX@e1*YE_
G93 X0.0 Y0.0;坐标平移 gzw[^d
M50;切断丝 %3FI>\3
G90 G00 X100.0 Y120.0;快速移动 B [y1RI|9
M60;穿丝 +K+
== mO&
M98 P0102;调用子程序P2 ZW,PZ<
G93 X0.0 Y0.0;坐标平移 /ZD/!YD&R
M50;切断丝 GTLlQy)'=
G90 G00 X200.0 Y80.0;快速移动 6Q\n<&,{
M60;穿丝 1)k))w 9
M98 P0103;调用子程序P3 rvOR[T>
M30;程序结束 
子程序调用切割实例
bXt A4O ,$CZ(GQ O0101(P1)子程序P1
3fBq~ Q G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
smk0 *m4 G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
_Hkc<j/e~ X0.0;到矩形右上角处
s'/ug Y-40.0;到矩形右下角处
:<nL9y jt X-80.0;到矩形左下角处
Z#\
\NfR Y0.0;到矩形左上角处
.k[Ptx> X-40.0;到矩形上边中心处
nar=\cs~g Y-20.0;回到矩形的穿丝点(矩形切割的起点)
=niU6Q} M99;子程序结束返回主程序
E?%k .t\Yv/|` O0102(P2)子程序P2
a)}?rzT] G93 X100.0 Y80.0;坐标平移三角形底边中间处
*6k
(xL G90 G01 Y60.0;到三角形顶点处
>2N`l X40.0 Y0.0;到三角形右下角处
{%~Sbcq4F Y-40.0;到三角形左下角处
S,J'Z:spf X0 Y60.0;到三角形顶点处
mB_ba1r Y40.0;回到三角形的穿丝点(三角形切割的起点)
y5l4H8{h} M99;子程序结束返回主程序
3{,Mpb@ <y!6HJ" O0103(P3)子程序P3
Qa"R?dfr G93 X200.0 Y80.0;坐标平移到圆心处
=(zk-J<nY G90 G01 Y40.0; 到圆以上圆上一点
(A"oMnjWd G02 J-40.0;顺时针切割圆
_Z 9I') G01 Y0.0; 回到圆心处
N[=nh)m7b M99;子程序结束返回主程序