车削多头螺纹宏程序

627604250

程序原文如下，广数系统


%
) k2 r6 n$ t  P, {% mO0001
5 O3 l' W  ~( [2 M' {) u/ s#1=10.;(大径)
' y( f1 R1 Z: M& C  d. A7 `) G; o#2=8.;(小径)
+ t( C- D+ @: y1 g) x" R4 I#3=-50.;(终点)
7 S: S+ p( e% }0 B9 ]#4=1.5;(牙距)
#5=1.012;(缩水率）
1 p0 i4 @. K, w* i#6=15.;(起点)
#7=6;(螺纹头数)
/ V2 R' b; a+ ?/ J& q* N#8=#4*#5;
: B: t  x) a- d& [, r7 v#9=#7*#8;
$ T7 k. r4 ]0 R, ^- L3 p#10=#6+#9
$ D% W2 t" O/ I2 T- B7 K( mT0101;
% u- l! r# K- T" EM03 S500;
& B* B: I  M/ z2 ]M08;
! ?: a. A! E9 i* G% @4 fWHILE [#6 LT #10] DO 1;
. K3 R4 X' \1 L" YG0 G99 X[#1+2.];
" {% Q2 l3 h5 B$ T0 vZ#6;
. I: I2 z! C- }8 k+ d: O/ {G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
2 R' i+ y4 o$ C5 M; R#6=#6+#8;
END 1;
G0 Z100. M09;
M05;
M30;
. H  s' t/ |) d0 e7 m4 \%

) F$ K0 t( \/ s. s3 p现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？