车削多头螺纹宏程序

627604250

程序原文如下，广数系统
3 }2 i; m% T' b) Z/ ~

1 F+ C9 d% `0 I0 m) O%
0 b5 R( d5 X! J0 @O0001
#1=10.;(大径)
8 a( {) }) `* f5 h#2=8.;(小径)
/ w. w/ e- W5 D9 I8 \. s" J#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
2 w, P2 I9 f2 ]; H! @0 ^#7=6;(螺纹头数)
#8=#4*#5;
7 ]+ K, }9 h4 K, X4 g' m#9=#7*#8;
#10=#6+#9
. u- E  f/ A1 L2 VT0101;
M03 S500;
M08;
% O3 e3 g, \+ i7 H) C5 R: S1 O4 qWHILE [#6 LT #10] DO 1;
; _3 d9 x% C, L- c5 uG0 G99 X[#1+2.];
) e0 K! f0 X$ g* c: RZ#6;
/ |7 ?. M& h, s. r3 b* l7 \5 dG76 P020160 Q20 R0.;
' _' K0 n+ f* B8 R2 R5 D, XG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
7 Z8 _# k6 o6 A3 v& H, |; G9 d" cG0 Z100. M09;
M05;
% [* b; ?' m3 |% fM30;
%
) ]: G, D1 s6 S4 s( u4 e1 L
4 e2 P8 \7 K" `现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？