例 编制如图1所示的加工圆周上孔的宏程序。圆周半径为I，起始角为A，间隔为B（顺时针方向，B指定为负值），钻孔数为H，圆的中心为（X、Y）。

图1 宏程序编制实例

X：圆心X坐标，绝对值或增量值指定（#24）

Y：圆心Y坐标，绝对值或增量值指定（#25）

Z：孔深（#26）

R：快速趋近点坐标（#18）

F：切削进给速度（#9）

I：圆半径（#4）

A：第一孔的角度（#1）

B：增量角指定，负值时为顺时针（#2）

H：孔数（#11）

O0002；主程序

G90 G92 X0 Y0 Z100；

G65 P9100 X100 Y50 R30 Z-50 F500 I100 A0 B45 H5；

M30；

O9100；宏程序

#3=#4003； 读取模态信息（G90、G91）

IF[#3 EQ 90] GOTO 1； 在G90方式下转移到N1

#24=#5001+#24； 计算圆心X坐标

#25=#5002+#25； 计算圆心Y坐标

N1 WHILE[#11 GT 0] DO 1； 知道孔数为0

#5=#24+#4*COS[#1]； 计算X轴上孔位

#6=#24+#4*SIN[#1]； 计算X轴上孔位

G90 X#5 Y#6；

G81 Z#26 R#18 F#9 K0； 钻孔循环

#1=#1+#2； 更新角度

#11=#11-1； 孔数减1

END 1；

G#03 G80； 返回原始状态代码

M99；