例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 *B3` #t
0|4XV{\qT$
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: @Vb-BC,
j\Q_NevV
O0100(MAIN) :[AW
G92 X80.0 Y40.0;设定坐标系 ;PLby]=O
M98 P0101;调用子程序P1 ri\r%x
G93 X0.0 Y0.0;坐标平移 ;itz`9T
M50;切断丝 }dB01Jl
'
G90 G00 X100.0 Y120.0;快速移动 l&T;G9z
M60;穿丝 :r#FI".qx
M98 P0102;调用子程序P2 L*L3;y|
G93 X0.0 Y0.0;坐标平移 e#16,a-}o
M50;切断丝 ux-Fvwoh
G90 G00 X200.0 Y80.0;快速移动 vT[%*)`
M60;穿丝 vH7"tz&RIp
M98 P0103;调用子程序P3 =\_MJ?A$
M30;程序结束 
子程序调用切割实例
'VO^H68 2Uk$9s O0101(P1)子程序P1
bh_i*DJ] G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
^#"!uCq]gM G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
bCE[oi6hb X0.0;到矩形右上角处
yQCfn1a) Y-40.0;到矩形右下角处
?M\3n5; X-80.0;到矩形左下角处
rEZa%)XJ Y0.0;到矩形左上角处
(MbI8B> X-40.0;到矩形上边中心处
;XGG&M%3 Y-20.0;回到矩形的穿丝点(矩形切割的起点)
13 M99;子程序结束返回主程序
\Fc"Q@.u .cle^P O0102(P2)子程序P2
Az"3f G93 X100.0 Y80.0;坐标平移三角形底边中间处
'<8ewU G90 G01 Y60.0;到三角形顶点处
knF *~O :y X40.0 Y0.0;到三角形右下角处
Vk>aU3\c Y-40.0;到三角形左下角处
c+-L>dsss X0 Y60.0;到三角形顶点处
/[_>U{~P# Y40.0;回到三角形的穿丝点(三角形切割的起点)
^=Up UB M99;子程序结束返回主程序
~vaV=}) }%_x T O0103(P3)子程序P3
m.S@ e8kS G93 X200.0 Y80.0;坐标平移到圆心处
jskATA
/ G90 G01 Y40.0; 到圆以上圆上一点
E
jBEZL|_ G02 J-40.0;顺时针切割圆
)SUT+x(DU G01 Y0.0; 回到圆心处
A-.jv M99;子程序结束返回主程序