车削多头螺纹宏程序

627604250

程序原文如下，广数系统

+ e' N3 L3 x$ J1 U, Z9 {/ d" m
%
O0001
1 e4 J. q1 i  A+ w% Y' y. x#1=10.;(大径)
* @1 }: \' u) x+ V6 s. B4 s+ j' \#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
3 m6 S" q; p% m8 q% F#7=6;(螺纹头数)
" r7 j# F( I0 d! ~$ s6 u#8=#4*#5;
* E* x7 h8 m! u6 p6 F& r#9=#7*#8;
  L* p& e3 A& o6 `' P7 V#10=#6+#9
T0101;
6 E) q# I; j) c; W+ a. hM03 S500;
+ K; u7 k; n% h7 Z1 AM08;
2 G# d9 {9 m) [; a3 dWHILE [#6 LT #10] DO 1;
) j" M  a- m5 d; P0 a0 `7 O8 W4 [G0 G99 X[#1+2.];
4 A  q; E$ t% H; MZ#6;
/ u! X. A9 a5 ^/ OG76 P020160 Q20 R0.;
' A! w! Q; `4 Y; [5 ]G76 X#2 Z#3 P811 Q50 F#9;
$ R" F" }9 w0 ]; p+ j. J! {#6=#6+#8;
1 u) ]* u$ Z4 r6 gEND 1;
G0 Z100. M09;
M05;
M30;
: a, x; F9 O4 G# ^" X8 D%
" Z/ X: E3 ]: X, Y0 u( y, n: T
4 F& |2 X6 Y7 `7 n! i( R; |/ {; e! o现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
* Y! h* C) {4 n* S2 S