车削多头螺纹宏程序

627604250

程序原文如下，广数系统
1 P" z6 [5 ?* S" y/ {4 G

( O( ~6 ~/ j! \1 q+ X7 ~4 H%
$ y1 @; g1 [/ u9 v- m5 ]* y2 a1 [O0001
#1=10.;(大径)
6 ?$ [3 H( Q4 A4 ~* e0 \+ p" _#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
4 q6 Y% _% x- u8 d, M2 e% v1 O#5=1.012;(缩水率）
% g% f5 Y0 {; w% q" W# p, e8 f#6=15.;(起点)
#7=6;(螺纹头数)
0 n3 G: ]2 e/ {#8=#4*#5;
#9=#7*#8;
#10=#6+#9
, d5 H3 o6 {* b0 t) g$ IT0101;
; H" Z  C  W& H  q; }" E1 {M03 S500;
, q  B( ?) L- H# k  vM08;
" `) ?4 z. v: D! D, \WHILE [#6 LT #10] DO 1;
( L! q9 p& L; a8 z! dG0 G99 X[#1+2.];
Z#6;
4 P! F" K0 \- ^G76 P020160 Q20 R0.;
4 v& H) z7 R' y! R8 WG76 X#2 Z#3 P811 Q50 F#9;
% P/ V3 _. b& C. K# M#6=#6+#8;
. w# c7 F! K# }END 1;
& _# v! R5 X/ i2 ?& Z; qG0 Z100. M09;
M05;
) H" R9 R4 C! `+ K+ m& W! F" NM30;
8 y) a6 z8 l+ v%
" p1 l4 l' O" _7 E+ l$ o
0 ~8 t9 X4 O( S& ]7 h现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？