例：长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；程序结束