车削多头螺纹宏程序

627604250

程序原文如下，广数系统
5 I0 B+ w$ D$ m# R! @5 k% z, O

- C! T# }& N+ n! h. l9 D% Z%
O0001
#1=10.;(大径)
: M3 I! s3 y& }) w. d#2=8.;(小径)
9 _- \" }3 \5 c9 t. ^  J#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
" r' m; j% M/ i% C: Y#6=15.;(起点)
; ~0 d+ S8 \2 R4 D" ~4 q7 _1 C#7=6;(螺纹头数)
#8=#4*#5;
: ^2 D2 L/ R; m& }3 l" K#9=#7*#8;
#10=#6+#9
T0101;
2 w' N! N2 g0 G& A, pM03 S500;
M08;
WHILE [#6 LT #10] DO 1;
- d) B" j& F6 w# }7 \6 BG0 G99 X[#1+2.];
) d1 E3 N: I% j5 Y4 w- O7 GZ#6;
G76 P020160 Q20 R0.;
% {+ G4 S; V5 ~0 X/ wG76 X#2 Z#3 P811 Q50 F#9;
2 q  t: a1 U* X+ R% ~#6=#6+#8;
END 1;
7 J) _8 `2 f( u. j- V2 cG0 Z100. M09;
M05;
M30;
1 q/ t) j0 O8 ~* P2 `%
5 m( t$ D( j& ^3 j0 d. u
) R: i; U% x; V+ `) s/ c" N现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
; m$ P' U: P, v