皮带轮槽加工的宏程序可以使用法纳克或广数系统进行编程。以下是一个使用法纳克系统的示例程序，用于加工皮带轮的四个槽。这个程序假设右端面中心是编程零点，前刀尖对刀。
```gcode
； 参数设置
% 1=4 刀具宽度
% 2=19 槽单边角度
% 3=0.5 每次径向单边吃刀深度
% 4=0.5*TAN[2] Z轴每次入刀位移量
% 5=3*TAN[2]
% 6=[17-1-2*5] Z轴每次剩余位移
； 初始化
O0001 M3 S150 T101 M8
； 加工第一个槽
G0 X201 Z-8
G99
G1 X200 F.2
N01
G1 X[200-2*3] Z-[8+5]
F0.15 W-6
F0.25 U0.5 W-4
G0 Z-[8+5]
G1 X[200-2*3]
3=3+0.5
5=3*TAN[2]
6=[17-1-2*5]
IF [3 LE 17] GOTO01
G0 X206 Z-6.86
G1 A-109 X166 F0.2
G0 X206 Z-22.14
G1 A-71 X166
G0 X206 Z200
M30
```
解释
参数设置
`% 1=4`：刀具宽度
`% 2=19`：槽单边角度
`% 3=0.5`：每次径向单边吃刀深度
`% 4=0.5*TAN[2]`：Z轴每次入刀位移量
`% 5=3*TAN[2]`：每次径向吃刀深度
`% 6=[17-1-2*5]`：Z轴每次剩余位移
初始化
`O0001 M3 S150 T101 M8`：初始化机床，选择刀具，设置主轴转速等。
加工第一个槽
`G0 X201 Z-8`：移动到加工第一个槽的起始位置。
`G99`：取消自动换刀。
`G1 X200 F.2`：以F.2的转速进行切削。
`N01`：准备切削第一个槽。
`G1 X[200-2*3] Z-[8+5]`：移动到切削第一个槽的终点位置。
`F0.15 W-6`：以0.15的进给速度，切削宽度为6。
`F0.25 U0.5 W-4`：以0.25的进给速度，向上移动0.5mm，切削宽度为4。
`G0 Z-[8+5]`：移动到下一个槽的起始位置。
`G1 X[200-2*3]`：移动到下一个槽的终点位置。
`3=3+0.5`：更新槽的深度。
`5=3*TAN[2]`：更新每次径向吃刀深度。
`6=[17-1-2*5]`：更新Z轴每次剩余位移。
`IF [3 LE 17] GOTO01`：如果槽的深度不够，跳转到第一个槽的加工位置。
`G0 X206 Z-6.86`：根据切刀圆角半径R0.4计算得出精加工起点。
`G1 A-109 X166 F0.2`：精加工右侧面。
`G0 X206 Z-22.14`：根据切刀圆角半径R0.4计算得出精加工起点。
`G1 A-71 X166`：精加工左侧面。
`G0 X206 Z200`