车削多头螺纹宏程序

627604250

程序原文如下，广数系统
$ n& r$ A3 K1 b. W9 E/ h

%
& G( y" @# h  T0 QO0001
#1=10.;(大径)
( i7 F; Q8 f0 x9 k0 z#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
/ t; ~2 N4 d2 @& k#5=1.012;(缩水率）
- g1 \$ M* L7 b/ l#6=15.;(起点)
#7=6;(螺纹头数)
& T7 m( Q& B; q% r5 O6 O#8=#4*#5;
. x8 [7 n+ S4 \& \0 i+ d. l0 T#9=#7*#8;
#10=#6+#9
1 v( E3 u. ?, G7 R3 X* W  k4 n5 q3 t1 uT0101;
M03 S500;
( G* V8 W4 ]8 T5 |* h+ A( eM08;
( z; A  p, H: ]WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
" ]9 n& J: P# O( A% u7 ?8 O& C#6=#6+#8;
5 X5 Q4 U: B' |0 \END 1;
G0 Z100. M09;
/ P1 ?- c) ]: O' e. q! Q+ eM05;
, }& E! d* p; R* D! D# T( BM30;
%
2 e8 C! }( @2 K6 W% B
- D. K, j2 {$ ]& ]现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？