例：长30 公称直称12
T0101 M03 S300；换梯形螺纹刀，主轴转速300r/min
G00 X38 Z5；快速走到起刀点
M08；开冷却
#101=12公称直径
#102右边借刀量初始值
#103导程
#104=0.2；每次吃刀深度，初始值
SQRT[11*11-#104*#104/2]
N1 IF [#101 LT 8] GOTO2；加工到小径尺寸循环结束
G0 Z[5+#102] ；快速走到右边加工起刀点
G92 X[#101] Z-30 F#103；右边加工一刀
G0 Z[5+#103] ；快速走到左边加工起刀点
G92 X[-#101] Z-30 F#103；左边加工一刀
#101=#101-#104；改变加工直径
#102=#102+SQRT[11*11-#104/2*#104/2]
IF[#101 LT 10] THEN #104=0.1；小于34时每次吃刀深度为0.1
GOTO 1；
M05；主轴停
M30；程序结束
