车削多头螺纹宏程序

627604250

程序原文如下，广数系统

" \: g8 [/ ?$ F$ o( d7 d
9 E0 _9 ?! O& r8 M%
O0001
#1=10.;(大径)
#2=8.;(小径)
8 q$ `# E2 B, _1 g5 l9 n5 k$ ]. c#3=-50.;(终点)
3 Z/ q+ b% x- e" s1 f  u#4=1.5;(牙距)
  q. g+ `, l* u. U9 N3 y#5=1.012;(缩水率）
#6=15.;(起点)
9 a7 T( B+ H# g4 L8 L$ g#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
T0101;
( M& p4 ~/ [+ T) m! Y2 f' zM03 S500;
: B* l+ X' F- m' {/ WM08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
# T! ?- q1 u; k; p7 H. X, W2 XZ#6;
) h% n) l2 D( A! m3 I% |7 SG76 P020160 Q20 R0.;
, B' v3 w' u$ G% G% VG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
0 Y, L! L0 W9 v& rEND 1;
$ x) A2 D* r$ G& N5 P/ n. jG0 Z100. M09;
M05;
. b4 F2 j6 _4 Z. cM30;
  \  h) F( \' s& x9 @5 J' A5 _( Z%
) a: ]5 q! E; h2 B
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
; w3 W3 ]% U8 C- D