例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 B(falmXJ
x_K%
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: ?>Aff`dHY
1%,Z&@^j
O0100(MAIN) f<wgZM
G92 X80.0 Y40.0;设定坐标系 g$b*#
M98 P0101;调用子程序P1 Jy_'(hG
G93 X0.0 Y0.0;坐标平移 &; \v_5N6
M50;切断丝 f#5JAR
G90 G00 X100.0 Y120.0;快速移动 hgK=fHJk
M60;穿丝 Ub,unU
M98 P0102;调用子程序P2 lNb\^b
G93 X0.0 Y0.0;坐标平移 3o>t~Sfi
M50;切断丝 ^ne8~
;Q
G90 G00 X200.0 Y80.0;快速移动 x8Sq+BY
M60;穿丝 Kxn7sL$]=F
M98 P0103;调用子程序P3 2#3R]zIO
M30;程序结束 
子程序调用切割实例
1RA$hW@} e`r;`a& O0101(P1)子程序P1
+0Gep}&z. G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
O 0#Jl8 G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
Bv8C_-lV/ X0.0;到矩形右上角处
zwtsw [. Y-40.0;到矩形右下角处
{%{GZ X-80.0;到矩形左下角处
`Tj}4f Y0.0;到矩形左上角处
)*ckJK X-40.0;到矩形上边中心处
{O)&5 Y-20.0;回到矩形的穿丝点(矩形切割的起点)
M-N2>i# M99;子程序结束返回主程序
W1Qc1T8 F/sBr7I O0102(P2)子程序P2
$8k_M G93 X100.0 Y80.0;坐标平移三角形底边中间处
l{9h8]^ G90 G01 Y60.0;到三角形顶点处
#Uh 5tc X40.0 Y0.0;到三角形右下角处
pm\X*t}L Y-40.0;到三角形左下角处
<q\)
o_tH X0 Y60.0;到三角形顶点处
dH|^\IQ Y40.0;回到三角形的穿丝点(三角形切割的起点)
G:`Jrh M99;子程序结束返回主程序
Bq@wS\W>b} 2<Bv=B O0103(P3)子程序P3
2p>SB/ G93 X200.0 Y80.0;坐标平移到圆心处
Q/)ok$A& G90 G01 Y40.0; 到圆以上圆上一点
on?/tHys G02 J-40.0;顺时针切割圆
'V#ew\ G01 Y0.0; 回到圆心处
w9$8t9$| M99;子程序结束返回主程序