例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 5!s7`w]8*0
APJVD-
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: 6"oG
bte
<"hq}B
O0100(MAIN) ,I2x&Ys&.
G92 X80.0 Y40.0;设定坐标系 yC:C
M98 P0101;调用子程序P1 tqFE>ojlI
G93 X0.0 Y0.0;坐标平移 p
2>\
M50;切断丝 oypF0?!m
G90 G00 X100.0 Y120.0;快速移动 6/dP)"a('
M60;穿丝 T;M4NGmvd
M98 P0102;调用子程序P2 vWH)W?2
G93 X0.0 Y0.0;坐标平移 g=na3^PL6
M50;切断丝 O<`N0
G90 G00 X200.0 Y80.0;快速移动 Xk(p:^ R
M60;穿丝 MqAN~<l [
M98 P0103;调用子程序P3 HkQ rij6
M30;程序结束 
子程序调用切割实例
4T>d%Tt+) Vr7L9%/wg O0101(P1)子程序P1
&5y|Q? G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
D~zk2 G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
+zg3/C4 S X0.0;到矩形右上角处
0: Nw8J Y-40.0;到矩形右下角处
ROr|n]aJj X-80.0;到矩形左下角处
Kgw,]E&7 Y0.0;到矩形左上角处
%BwvA_T'Q X-40.0;到矩形上边中心处
<{cf'"O7 ) Y-20.0;回到矩形的穿丝点(矩形切割的起点)
M^&^g M99;子程序结束返回主程序
o_sb+Vn| 5hl!zA? O0102(P2)子程序P2
v;nnr0; G93 X100.0 Y80.0;坐标平移三角形底边中间处
cz41<SFL G90 G01 Y60.0;到三角形顶点处
E#~J"9k98 X40.0 Y0.0;到三角形右下角处
Ez+8B|0P Y-40.0;到三角形左下角处
T0X+\&W X0 Y60.0;到三角形顶点处
<xlyk/ Y40.0;回到三角形的穿丝点(三角形切割的起点)
O?f?{Jsx M99;子程序结束返回主程序
f;%=S:3 \'6%Ld5km O0103(P3)子程序P3
':7gYP*v G93 X200.0 Y80.0;坐标平移到圆心处
]64pb;w"$D G90 G01 Y40.0; 到圆以上圆上一点
Xd@ d$ G02 J-40.0;顺时针切割圆
QKI g5I- G01 Y0.0; 回到圆心处
ckkm}|&m M99;子程序结束返回主程序