使用者宏程式編制的鑽孔子程式如下：

O9010

N110 G65 H01 P#100 Q0 　　　　　　 //#100 = 0

N120 G65 H22 P#101 Q#504　　　　　 //#101 = │#504│

N130 G65 H04 P#102 Q#100 R360　　　//#102 = #100 ×360o

N140 G65 H05 P#102 Q#102 R#504 　　//#102 = #102 / #504

N150 G65 H02 P#102 Q#503 R#102 //#102 = #503 + #102當前孔角度位置θi =α+ (360o×i) / n

N160 G65 H32 P#103 Q#502 R#102 　　//#103 = #502 ×COS(#102)當前孔的 X座標

N170 G65 H31 P#104 Q#502 R#102 　　//#104 = #502 ×SIN(#102) 當前孔的Y座標

N180 G90 G00 X#103 Y#104 　　　　　//定位到當前孔（返回開始平面）

N190 G00 Z#506 　　　　　　　　　　//快速進到R平面

N200 G01 Z#505 F#507 　　　　　　　//加工當前孔

N210 G00 Z#506 　　　　　　　　　　//快速退到R平面

N220 G65 H02 P#100 Q#100 R1 　　　 //#100 = #100+1孔計數

N230 G65 H84 P-130 Q#100 R#101 //當#100 < #101時，向上返回到130程式段

N240 M99 //子程式結束

呼叫上述子程式的主程式如下：

O0010

N10 G54 G90 G00 X0 Y0 Z20 　　　　　　　//進入加工座標系

N20 M98 P9010 　　　　　　　　　　　　　//呼叫鑽孔子程式，加工圓周等分孔

N30 Z20 　　　　　　　　　　　　　　　　//抬刀

N40 G00 G90 X0 Y0 　　　　　　　　　　　//返回加工座標系零點

N50 M30 程式結束

設定G54：X=-400，Y=-100，Z=-50。

變數#500～#507可在程式中賦值，也可由MDI方式設定。