车削多头螺纹宏程序

627604250

程序原文如下，广数系统
6 z7 h7 i( L  O  b
' J3 T+ e2 C3 S, F
* o6 j8 u0 L, Q3 Z%
O0001
7 a' r! Q% h  p9 A( `7 H. q#1=10.;(大径)
3 ~0 [8 V0 T' E+ _. D#2=8.;(小径)
#3=-50.;(终点)
2 N6 @9 R  M$ ]#4=1.5;(牙距)
#5=1.012;(缩水率）
& D, k( }/ Y+ k  P2 j7 J2 [#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
T0101;
M03 S500;
% ~5 P3 ]) u$ @5 n) hM08;
. }1 e" v" H1 oWHILE [#6 LT #10] DO 1;
: c- ?( y9 Q0 P3 n0 _$ EG0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
4 A( ?( L- h& K5 O( PEND 1;
" N% Y( T4 l) f% u% E/ k$ z8 kG0 Z100. M09;
M05;
0 J9 q' M/ i3 D% l7 _+ GM30;
%

* t/ ^' c" `# a3 I* ^9 k现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？