编写宏程序铣通孔的步骤如下：
确定加工参数
圆孔直径（Diameter）
圆孔深度（Depth）
刀具直径（Tool Diameter）
每层切深（Layer Depth）
步距（Step Distance）
初始化变量
设置圆孔直径（1）
设置圆孔深度（2）
设置刀具直径（4）
设置每层切深（5）
计算下刀点坐标（6）
计算刀具在内腔中的最大回转半径（7）
计算深度上的切削层数（8）
编写G代码
G54：设置工件坐标系
G90：设置绝对坐标系
G21：设置直径编程
G40：取消刀具半径补偿
G49：取消刀具长度补偿
G94：设置进给速度
G00：快速定位到下刀点
G01：直线插补到目标深度
循环加工
使用WHILE循环，当切削层数（8）小于孔深（2）时，继续循环
在循环内，先加工一个层间距（8 = 8 + 4）
然后进行刀具位置的计算和移动（G01 Z[-8] F40）
更新刀具的最大回转半径（7 = 7 - 1）
退刀
加工完成后，刀具需要远离孔内壁，可以计算退刀点坐标（6 - 1）
使用G01移动到退刀点
```gcode
1=圆孔直径
2=圆孔深度
3=刀具直径
4=刀具直径
5=每层切深
6=[1-3]/2
7=FIX[2/4]
8=0
G54
G90
G21
G40
G49
G94
G00 Z30
X0 Y0
S1000 M03
Z1
WHILE[8 LT 2] DO1
8<2，循环
IF[7 GE 1] GOTO1
8=2
GOTO2
N1
8=8+4
7=7-1
N2
G01 Z[-8] F40
9=FIX[6/5]
10=0
WHILE[10 LT 6] DO2
10<6，循环
IF[9 GE 1] GOTO3
10=6
GOTO4
N3
9=9+10
N4
G01 X[6-1]
END
```
请根据实际的加工要求和机床功能调整上述程序中的变量和参数。