车削多头螺纹宏程序

627604250

程序原文如下，广数系统

9 _2 C* b' w  d" t7 x* W* m6 g4 I% O
9 M5 r2 l9 C9 Y& N! K4 n%
( v4 E( k/ S/ T: V# o- `O0001
# B/ a# u4 {6 q, L* G8 N1 o1 L# O#1=10.;(大径)
#2=8.;(小径)
) o2 E- `2 f5 p#3=-50.;(终点)
#4=1.5;(牙距)
: l( K! a& n5 p9 ?' Z: y#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
3 l0 Z9 e7 _; H3 c# E' p#9=#7*#8;
#10=#6+#9
T0101;
M03 S500;
# ~. P- y5 u$ V, _9 R1 }+ ]  \) z. ^M08;
6 d# I2 {) r6 Y7 Z, N4 BWHILE [#6 LT #10] DO 1;
9 }2 ]" Y$ e9 W! B! I7 h/ t, ZG0 G99 X[#1+2.];
Z#6;
" L- I, I+ W- X! j$ tG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
+ \4 _( Z* V, I: Y" A* D#6=#6+#8;
END 1;
G0 Z100. M09;
M05;
M30;
) [# Z5 N# L/ h4 P% H2 U7 K5 Y& Y%

现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？