螺旋铣圆孔的宏程序可以通过以下步骤进行编写：
定义参数
圆孔的直径（D）
圆孔的深度（Z）
进给速度（F）
刀具直径（T）
铣孔安全平面（R）
铣孔轴向每次递增量（Q）
退刀高度（U）
计算刀具位置和进给速度
根据圆孔的半径和深度，计算出每个螺旋进给的刀具位置和进给速度。
生成G代码
使用G代码控制刀具按照螺旋路径进行进给运动，直到达到设定的深度为止。
```gcode
%0001；
G90；
G40；
G54；
G91；
G28；
Z0.T1M6；
G43；
H1；
Z30.；
501 = 80； % 圆周分布直径
502 = 45； % 等分角度
505 = 45； % 孔起始角度
506 = 360； % 结束角度
507 = 505；
N10；
503 = COS[507] * 501；
504 = SIN[507] * 501；
G65；
P110；
X503；
Y504；
Z-30.；
D20.；
T10.；
R0.5；
Q1.；
U10.；
S9000；
F1500.；
507 = 507 + 502；
IF[507 LE 506] GOTO 10；
N20；
503 = COS[507] * 501；
504 = SIN[507] * 501；
G65；
P110；
X503；
Y504；
Z-15.；
D35.；
T10.；
R0.5；
Q1.；
U10.；
S9000；
F1500.；
507 = 507 + 502；
IF[507 LE 506] GOTO 20；
G91；
G28；
Z0.；
M30；
%%O110；
31 = FIX[26/17]；
32 = 26 - 31*17；
33 = [7 - 20] / 2.；
```
解释：
初始化
G90： 设置为绝对坐标系。
G40： 取消刀具半径补偿。
G54： 设置工作坐标系。
G91： 设置增量坐标系。
G28： 将刀具移动到起始位置。
Z0.T1M6： 将刀具移动到安全高度并进行半径补偿。
G43： 设置高度补偿。
H1： 设置当前高度为工件上端面。
Z30.： 将刀具移动到初始深度。
参数定义
501： 圆周分布直径。
502： 等分角度。
505： 孔起始角度。
506： 结束角度。
507： 当前角度。
螺旋铣削循环
N10： 初始化当前角度为45度。
计算当前位置的X和Y坐标。
G65： 调用宏程序。
P110： 设置进给速度为1500 mm/min。
X503, Y504： 设置当前位置的X和Y坐标。
Z-30.： 将刀具移动到当前深度。
D20.： 设置刀具直径为20 mm。
T10.： 设置刀具直径为10 mm