例:在一块270mm×165mm的方板上切割出如图所示的长方形、三解形和圆形。其中P1、P2和P3为穿丝点,电极丝的初始坐标为(80,40)。 D2MIV&pahP
n^G[N-\3
这里设计三个子程序,每个子程序完成一个图形的加工,程序如下: #>5T,[{?j
[["eK9}0
O0100(MAIN) 8193d%Wb
G92 X80.0 Y40.0;设定坐标系 i}<fg*6@E
M98 P0101;调用子程序P1 Pa|*Jcr
G93 X0.0 Y0.0;坐标平移 ZL!5dT&@W
M50;切断丝 T0@<u
G90 G00 X100.0 Y120.0;快速移动 Iz#jR2:yn
M60;穿丝 @WKJ7pt`'N
M98 P0102;调用子程序P2 9Z 6
G93 X0.0 Y0.0;坐标平移 Esj1Vv#
M50;切断丝 %3HF_DNOY=
G90 G00 X200.0 Y80.0;快速移动 ^\VVx:]
M60;穿丝 11A;z[Zk
M98 P0103;调用子程序P3 [zrFW
g6N
M30;程序结束 
子程序调用切割实例
TPN1Rnt0` X1u\si%.4S O0101(P1)子程序P1
`v/p4/ G93 X120.0 Y60.0;坐标原点平移到矩形的右上角处
Y|-&= G90 G01 Y0.0;绝对坐标从矩形中心到矩形上边中心处
e5n"(s"G*[ X0.0;到矩形右上角处
[NGq$5 Y-40.0;到矩形右下角处
J6zU# X-80.0;到矩形左下角处
\)g} Y0.0;到矩形左上角处
!.|A}8nK X-40.0;到矩形上边中心处
q(#,X~0 Y-20.0;回到矩形的穿丝点(矩形切割的起点)
6k|f]BCL M99;子程序结束返回主程序
1yc$b+TH U:aaa O0102(P2)子程序P2
%~Wr/TOt+ G93 X100.0 Y80.0;坐标平移三角形底边中间处
E.x<J.[Y G90 G01 Y60.0;到三角形顶点处
QT"o"B X40.0 Y0.0;到三角形右下角处
Ob|tA Y-40.0;到三角形左下角处
Fcn@j#[J X0 Y60.0;到三角形顶点处
-BrJ5]T>* Y40.0;回到三角形的穿丝点(三角形切割的起点)
^w
jM u5f M99;子程序结束返回主程序
CT=5V@_u\ 4%jQHOZ O0103(P3)子程序P3
a{}8030S G93 X200.0 Y80.0;坐标平移到圆心处
HIlTt G90 G01 Y40.0; 到圆以上圆上一点
$cO-+Mr-~ G02 J-40.0;顺时针切割圆
. G01 Y0.0; 回到圆心处
TPi{c_
] M99;子程序结束返回主程序