车削多头螺纹宏程序

627604250

程序原文如下，广数系统


, f! L+ {! O+ n1 t% V4 ^. X9 Z%
O0001
#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
" x8 c! ^" [/ H6 d6 }$ H#6=15.;(起点)
% @8 S6 g  A% T) b+ M#7=6;(螺纹头数)
4 K1 K  T* a% s, n+ g/ y. K+ f#8=#4*#5;
& M6 `0 W4 c7 t0 B#9=#7*#8;
1 r" y% D4 ?- a, J$ H5 s#10=#6+#9
T0101;
5 X: ^+ Z6 [0 Q( q) k2 i2 P- SM03 S500;
M08;
8 }: A: V$ _3 M/ H$ P7 Q, l) mWHILE [#6 LT #10] DO 1;
# R9 j- x2 q! @: q2 |+ mG0 G99 X[#1+2.];
Z#6;
9 y2 ]( z, D: L3 hG76 P020160 Q20 R0.;
+ o$ }2 u. p. B$ C. C' a. cG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
# P# \1 T, l) e/ cG0 Z100. M09;
2 I$ H. l' Z/ d$ V  bM05;
M30;
3 I% h, n7 ~, e1 C6 J7 r: I%
3 o3 @1 [/ Z0 k9 B! G2 T! ^" ^. c. P
# A  c6 A& x; j+ W现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？