车削多头螺纹宏程序

627604250

程序原文如下，广数系统
* K  A: B" Y, E( h9 D8 ]
' a) Y) a3 r7 D" w7 ^6 I
$ W5 T2 a  ], _5 Q9 o%
O0001
#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
& x( F9 m( i/ f6 n#5=1.012;(缩水率）
#6=15.;(起点)
  o. h/ a& [, d& O. E#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
; j* t8 w1 h% ~. V#10=#6+#9
T0101;
2 y2 S. s; X9 U! h4 F" R5 aM03 S500;
+ t, L& D( o% p! Z- ]5 M4 a3 A0 oM08;
WHILE [#6 LT #10] DO 1;
7 C6 t' T, Q4 J: i5 j5 m  O1 yG0 G99 X[#1+2.];
+ I8 T# }3 t* C& iZ#6;
G76 P020160 Q20 R0.;
- l6 g7 }: K5 ^: e; hG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
3 c2 M% t6 e/ b2 \4 m. Q7 Z* d' p8 PG0 Z100. M09;
M05;
9 ]& H& c" ^* r) x- SM30;
%
' c( s+ P. n  G5 f" ~* A) Z' z. F
, s1 P) x. L1 f2 j8 D/ `7 w, ]3 P& }现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？