圆孔用倒角刀宏程序编程如下：
孔口倒圆角（球刀）
```plaintext
O0010 501=80 (孔口直径) 502=50 (倒R角半径) 503=5 (球刀半径) 504=1
T1M6 M3S6000
G90G54G00X0Y0
G43H1Z50
M8
G0Z3.
1=0
N10
2=501/2+502-[502+503]*SIN[1]
3=[502+503]*[1-COS[1]]
G01X2Y0.
G01Z-3F500.
G03X2Y0.I-2J0F500.
1=1+504
IF[1LE90]GOTO10
G0Z10.
G91G28Z0.
M5
M9
M30
```
孔口倒圆角（平刀）
```plaintext
O0010 501=80 (孔口直径) 502=50 (倒R角半径) 503=5 (刀具半径) 504=1
T1M6 M3S6000
G90G54G00X0Y0
G43H1Z50
M8
G0Z3.
1=0
N10
2=501/2+502-503-[502*SIN[1]]
3=502-502*COS[1]
G01X2Y0.
G01Z-3F500.
G03X2Y0.I-2J0F500.
1=1+504
IF[1LE90]GOTO10
G0Z10.
G91G28Z0.
M5
M9
M30
```
解释
`501`：孔口直径
`502`：倒R角半径
`503`：球刀半径（对于平刀为刀具半径）
`504`：Z轴移动距离
`G90G54G00X0Y0`：设置坐标系原点
`G43H1Z50`：设置工具长度补偿
`M8`：设置主轴转速
`G0Z3.`：将Z轴移动到初始位置
`N10`：开始循环
`2`和`3`：计算倒角半径
`G01X2Y0.`和`G01Z-3F500.`：沿X轴和Z轴移动到倒角位置
`G03X2Y0.I-2J0F500.`：沿X轴和Z轴以圆弧轨迹移动到倒角位置
`IF[1LE90]GOTO10`：判断是否完成倒角，未完成则继续循环
`G0Z10.`：将Z轴移动到结束位置
`G91G28Z0.`：返回初始位置
`M5`、`M9`、`M30`：设置主轴停止，冷却液关闭，程序结束
请根据实际加工需求调整参数。