梯形螺纹的加工宏程序
O0001；
T0101 M03 S300；换梯形螺纹刀，主轴转速300r/min
G00 X38 Z5；快速走到起刀点
M08；开冷却
#101=36；螺纹公称直径
#102=0；右边借刀量初始值
#103=-1.876；左边借刀量初始值(L=tg15*3.5*2或0.938*2) #104=0.2；每次吃刀深度，初始值
N1 IF [#101 LT 29] GOTO2；加工到小径尺寸循环结束
G0 Z[5+#102]；快速走到右边加工起刀点
G92 X[#101] Z-30 F6；右边加工一刀
G0 Z[5+#103]；快速走到左边加工起刀点
G92 X[#101] Z-30 F6；左边加工一刀
#101=#101-#104；改变螺纹加工直径
#102=#102-0.134*#104；计算因改变切深后右边借刀量(tg15/2=0.134) #103=#103+0.134*#104；计算因改变切深后左边借刀量(tg15/2=0.134) IF[#101 LT 34] THEN #104=0.15；小于34时每次吃刀深度为0.15
IF[#101 LT 32] THEN #104=0.1；小于32时每次吃刀深度为0.10
IF[#101 LT 30] THEN #104=0.05；小于30时每次吃刀深度为0.05
GOTO 1；
N2 G92 X29 Z-30 F6；在底径处精加工两刀
G00 X100 Z100 M09；刀架快速退回，关闭冷却
M05；主轴停
M30；程序结束
图l吃刀深度ap与借刀量△之间的关系：△=ap*tg α／2。