车削多头螺纹宏程序

627604250

程序原文如下，广数系统
9 k. f' R3 ]: A/ M; W# W

%
2 H. D) Q, M- N$ \3 w  gO0001
+ k6 G& {% X) ~! u9 Z' @& r1 Y#1=10.;(大径)
* \8 a+ X, I+ }+ n  `, h, p1 L$ E#2=8.;(小径)
( u8 }4 n$ s" T. o8 B#3=-50.;(终点)
3 j2 [4 i$ h) l) L#4=1.5;(牙距)
0 [* b) \- s9 i: B6 Z* l% u7 p#5=1.012;(缩水率）
1 d3 k0 x9 q  N#6=15.;(起点)
& H- z- S6 g, c6 m#7=6;(螺纹头数)
2 A+ e+ R: N: V/ y  Y* T: g/ Y% r#8=#4*#5;
#9=#7*#8;
4 [. k! K  ~9 D#10=#6+#9
; G+ R$ W/ y9 x$ c4 Q7 c* zT0101;
M03 S500;
5 Q3 G3 o' U: h! R7 L8 f4 M2 qM08;
WHILE [#6 LT #10] DO 1;
2 ~+ |- G$ L: |3 u- K2 TG0 G99 X[#1+2.];
Z#6;
- ]' ?1 g* Q# ?+ _9 h* J: G  \. `G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
  B: `, H/ ~; l/ B$ U$ a#6=#6+#8;
( N  s/ j6 @3 T& Q1 T$ pEND 1;
& L: ^+ s; U# ?G0 Z100. M09;
M05;
- L/ {7 j5 v) H6 hM30;
%
! ?4 p: h7 d! m  z" R
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？