车削多头螺纹宏程序

627604250

程序原文如下，广数系统
1 c8 }/ x9 @- W1 _$ `
6 D- }3 h) m. f( p5 h+ J) i
%
O0001
#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
$ ^: ]5 w4 m$ O1 B#9=#7*#8;
#10=#6+#9
T0101;
3 o4 B$ K6 G4 |# \6 U, [7 b7 IM03 S500;
8 F. \8 x% W* xM08;
, S( m) g  [' I; E7 }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;
#6=#6+#8;
END 1;
) V3 X+ a7 ~4 }* F% sG0 Z100. M09;
7 E& f) L: ^( `9 x* wM05;
/ n- |# ^, T1 M# |" ZM30;
%
0 C5 H+ j: U$ U8 F# D+ {
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？