数控宏程序车梯形螺纹编程？

　　我就打个比方吧！如下：例：长30 公称直称12T0101 M03 S300；换梯形螺纹刀，主轴转速300r/minG00 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.1GOTO 1；M05；主轴停M30；程序结束