如下圖所示的圓環點陣孔群中各孔的加工，我們曾經用A類宏程式解決過這類問題，這裡再試用B類宏程式方法來解決問題。 圓環點陣孔群的加工圖 宏程式中將用到下列變數：
#1――第一個孔的起始角度A，在主程式中用對應的文字變數A賦值；
#3――孔加工固定循環中R平面值C，在主程式中用對應的文字變數C賦值；
#9――孔加工的進給量值F，在主程式中用對應的文字變數F賦值；
#11――要加工孔的孔數H，在主程式中用對應的文字變數H賦值；
#18――加工孔所處的圓環半徑值R，在主程式中用對應的文字變數R賦值；
#26――孔深坐標值Z，在主程式中用對應的文字變數Z賦值；
#30――基準點，即圓環形中心的X坐標值XO；
#31――基準點，即圓環形中心的Y坐標值YO；
#32――當前加工孔的序號i；
#33――當前加工第i孔的角度；
#100――已加工孔的數量；
#101――當前加工孔的X坐標值，初值設定為圓環形中心的X坐標值XO；
#102――當前加工孔的Y坐標值，初值設定為圓環形中心的Y坐標值YO。 用戶宏程式編寫如下：
O8000
N8010 #30=#101 //基準點保存
N8020#31=#102 //基準點保存
N8030#32=1 //計數值置1
N8040WHILE[#32LEABS[#11]]DO1 //進入孔加工循環體
N8050#33=#1 360×[#32－1]/#11 //計算第i孔的角度
N8060 #101=#30+#18×COS[#33] //計算第i孔的X坐標值
N8070 #102=#31+#18×SIN[#33] //計算第i孔的Y坐標值
N8080 G90G81G98X#101Y#102Z#26R#3F#9 //鑽削第i孔
N8090 #32=#32+1 //計數器對孔序號i計數累加
N8100 #100=#100+1 //計算已加工孔數
N8110END1 //孔加工循環體結束
N8120#101=#30 //返回X坐標初值XO
N8130#102=#31 //返回Y坐標初值YO
M99 //宏程式結束 在主程式中調用上述宏程式的調用格式為：
G65P8000A～C～F～H～R～Z～
上述程式段中各文字變數後的值均應按零件圖樣中給定值來賦值。
#1――第一個孔的起始角度A，在主程式中用對應的文字變數A賦值；
#3――孔加工固定循環中R平面值C，在主程式中用對應的文字變數C賦值；
#9――孔加工的進給量值F，在主程式中用對應的文字變數F賦值；
#11――要加工孔的孔數H，在主程式中用對應的文字變數H賦值；
#18――加工孔所處的圓環半徑值R，在主程式中用對應的文字變數R賦值；
#26――孔深坐標值Z，在主程式中用對應的文字變數Z賦值；
#30――基準點，即圓環形中心的X坐標值XO；
#31――基準點，即圓環形中心的Y坐標值YO；
#32――當前加工孔的序號i；
#33――當前加工第i孔的角度；
#100――已加工孔的數量；
#101――當前加工孔的X坐標值，初值設定為圓環形中心的X坐標值XO；
#102――當前加工孔的Y坐標值，初值設定為圓環形中心的Y坐標值YO。 用戶宏程式編寫如下：
O8000
N8010 #30=#101 //基準點保存
N8020#31=#102 //基準點保存
N8030#32=1 //計數值置1
N8040WHILE[#32LEABS[#11]]DO1 //進入孔加工循環體
N8050#33=#1 360×[#32－1]/#11 //計算第i孔的角度
N8060 #101=#30+#18×COS[#33] //計算第i孔的X坐標值
N8070 #102=#31+#18×SIN[#33] //計算第i孔的Y坐標值
N8080 G90G81G98X#101Y#102Z#26R#3F#9 //鑽削第i孔
N8090 #32=#32+1 //計數器對孔序號i計數累加
N8100 #100=#100+1 //計算已加工孔數
N8110END1 //孔加工循環體結束
N8120#101=#30 //返回X坐標初值XO
N8130#102=#31 //返回Y坐標初值YO
M99 //宏程式結束 在主程式中調用上述宏程式的調用格式為：
G65P8000A～C～F～H～R～Z～
上述程式段中各文字變數後的值均應按零件圖樣中給定值來賦值。
