例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 ;qT7BUh(%
S\O6B1<:
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: <xeo9'k6&
3xnu SOdh
O0100(MAIN) Pkw` o #
G92 X80.0 Y40.0;设定坐标系 &D 4Ci_6k
M98 P0101;调用子程序P1 &Kgl\;}
G93 X0.0 Y0.0;坐标平移 *T'>-nm]
M50;切断丝 L'Fy\K\
G90 G00 X100.0 Y120.0;快速移动 /N&)r wc
M60;穿丝 e.IKmH]z
M98 P0102;调用子程序P2 ]o]*&[C
G93 X0.0 Y0.0;坐标平移 m*S[oy&
M50;切断丝 ]h$,=Qf
hD
G90 G00 X200.0 Y80.0;快速移动 e-#!3j!'
M60;穿丝 7!E?(3$#"
M98 P0103;调用子程序P3 gnp\z/'>
M30;程序结束 
子程序调用切割实例
Mo2b"A;}| /)` kYD6 O0101(P1)子程序P1
*OQr:e<} G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
&zYo G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
?#LbhO* X0.0;到矩形右上角处
d?/?VooU Y-40.0;到矩形右下角处
WwF4`kxT X-80.0;到矩形左下角处
(fjAsbT Y0.0;到矩形左上角处
@ 0RB.- X-40.0;到矩形上边中心处
?>W4*8( Y-20.0;回到矩形的穿丝点(矩形切割的起点)
Vnv9<=R M99;子程序结束返回主程序
Ge>%?\ 3S'juHTe O0102(P2)子程序P2
THM\-abz G93 X100.0 Y80.0;坐标平移三角形底边中间处
tzhkdG G90 G01 Y60.0;到三角形顶点处
^c{,QS{ X40.0 Y0.0;到三角形右下角处
N@>,gm@UU Y-40.0;到三角形左下角处
#D$vH X0 Y60.0;到三角形顶点处
0}UJP Y40.0;回到三角形的穿丝点(三角形切割的起点)
,rp-`E5ap M99;子程序结束返回主程序
eswsxJ/! 0NB6S&lI^k O0103(P3)子程序P3
'V5^D<1P G93 X200.0 Y80.0;坐标平移到圆心处
<<da TQV G90 G01 Y40.0; 到圆以上圆上一点
@]#0jiS G02 J-40.0;顺时针切割圆
b&;1b<BwD G01 Y0.0; 回到圆心处
F-)lRGw M99;子程序结束返回主程序