今天我们采用左右借刀的方法来编制宏程序，这个程序适合中小型螺距T牙，刀具选用刀宽3毫米30度刀加工。
程序如下
O0001
M3S300G99
T01M08
G0X55.Z10.
#1=50(螺纹大直径）
#2=32（螺纹底直径）
#3=0.5（初始吃刀量）
#4=50（大直径用于下面吃刀量递减）
IF[#1LT[#4-3]]THEN#3=0.4（强制赋值，用于吃刀量递减）
IF[#1LT[#4-5]]THEN#3=0.3（同上）
IF[#1LT[#4-6]]THEN#3=0.2（同上）
IF[#1LT[#4-7]]THEN#3=0.1（同上）
IF[#1LT[#4-7.5]]THEN#3=0.05（同上）
#1=#1-#3(螺纹深度递减）
IF[#1LT#2]THEN#1=#2（强制赋值防止深度过切）
G0Z10.（螺纹车削中间一刀定位）
G92X#1Z-115.F12.36
G0Z10.5（右定位）
G92X#1Z-115.F12.36
G0Z9.5（左定位）
G92X#1Z-115.F12.36
IF[#1EQ#2]GOTO20（如果深度到达跳转N20）
IF[#1GE#2]GOTO10（如果深度没有到达跳转N10继续循环）
N20G0X200.（退刀）
M30