车削多头螺纹宏程序

627604250

程序原文如下，广数系统
7 H; A* A0 C- }$ Z; \! c) h
, R3 \9 G! C% p6 F1 V
8 L* k( o; @) |7 X%
6 u' H$ Y3 v' x9 V- k5 S0 h! }1 nO0001
#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
) c: U3 a7 H, o- @) \% _5 e$ F2 _#6=15.;(起点)
#7=6;(螺纹头数)
# v* N3 P9 i$ h! R. Z7 ~5 b#8=#4*#5;
" v3 R2 k: f) c#9=#7*#8;
  U' w8 t! T. A4 _' Z: X#10=#6+#9
, m/ n, _' K7 P8 Z1 R9 ?T0101;
$ z& ~! K5 Z5 xM03 S500;
4 F; b5 E2 P3 f; A0 i* FM08;
6 D7 d) c6 G& f8 AWHILE [#6 LT #10] DO 1;
' s% D9 N) n" `. B' }, M" w5 @8 ~5 ]G0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
G0 Z100. M09;
0 y0 }/ U3 m% ?( x$ \" S3 VM05;
  |- y9 O/ x! uM30;
( R$ X0 i/ K+ `  c+ z: L% B: \%

% q, F4 J+ _4 B0 V* k现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？