车削多头螺纹宏程序

627604250

程序原文如下，广数系统
& S+ r- s- S/ O8 @, @
2 b% v, q1 v& w
%
; F( G0 u- n! ^1 }& F9 s; cO0001
# c/ t% d  i7 x5 F2 m0 u$ X#1=10.;(大径)
#2=8.;(小径)
6 Z, V$ n! ]. G) I+ g+ U5 b' `#3=-50.;(终点)
* w" P, C# G; O) w9 O3 ~0 E#4=1.5;(牙距)
+ ]$ J% c. s0 p- @5 A#5=1.012;(缩水率）
5 b* J% v5 L2 d4 T#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
/ [: \4 s2 J6 i0 U% N8 x#10=#6+#9
T0101;
M03 S500;
M08;
: s$ N  f+ q! R5 oWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
& ^+ f. c+ t' J3 UG76 P020160 Q20 R0.;
! k+ \% _, Q9 O# M& F  g) HG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
G0 Z100. M09;
; @! R6 Q9 f. n. p( H) k& ^5 l+ L: DM05;
) [  r! _9 G/ ~. T9 UM30;
' W- K& [7 t1 |3 N" @%

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