车削多头螺纹宏程序

627604250

程序原文如下，广数系统
/ ?$ {; K" O" C3 u
6 s8 r1 |% l8 y0 E9 }& T# j1 U2 q
%
1 ~1 F# S4 l; f( {4 n1 c  BO0001
. e7 p$ j2 F6 G/ q. X7 i#1=10.;(大径)
1 V0 _* r# I1 F9 S2 F! ^+ v#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
2 {" w8 \! Q7 S( F* z! l. Y#6=15.;(起点)
#7=6;(螺纹头数)
6 m" S! x: S' P* i; ]#8=#4*#5;
; s8 J- p) r" F1 c: h) \) M; J. E#9=#7*#8;
6 O* S3 p7 K6 `0 p#10=#6+#9
T0101;
M03 S500;
M08;
  Q* b3 _5 A. {' O8 \WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
# v- A6 L  c4 ~% y' E# qZ#6;
G76 P020160 Q20 R0.;
: M( W8 x4 C( f1 h. mG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
, p2 }' C& u4 b# W/ L8 fG0 Z100. M09;
2 r; O7 T; Q+ Q5 w/ |) I. aM05;
% d) c  Q2 M  D2 E5 i' Q+ M# W1 \M30;
%
) z6 S& m& {# |' M  T% p
8 P+ M3 B$ [( ~) K, o现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？