车削多头螺纹宏程序

627604250

程序原文如下，广数系统
  w* Q6 J3 p6 `( R$ Z( ~6 I3 U
9 w' o7 Q( s" K
%
7 H5 R6 y: E+ r5 KO0001
#1=10.;(大径)
#2=8.;(小径)
& L. P  r4 P4 t1 f#3=-50.;(终点)
0 H. ^) h: [) H2 @/ ^. f#4=1.5;(牙距)
#5=1.012;(缩水率）
" v+ I: E3 a% n; H, m#6=15.;(起点)
! f2 G4 ]8 B9 U  T: p6 Y- x#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
( c! \9 C- b, j# l# R0 X#10=#6+#9
8 e( Y2 `# c( w0 d$ D+ hT0101;
M03 S500;
M08;
3 E, ^5 N/ E* UWHILE [#6 LT #10] DO 1;
7 U9 H- j+ p4 Y" }  f3 uG0 G99 X[#1+2.];
! k4 o* j9 v& r9 L5 q& Z7 o) `Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
9 o& |, U& w8 _% q! u#6=#6+#8;
# Q$ ]* j8 w7 G' J! tEND 1;
G0 Z100. M09;
M05;
( P4 [' C* \2 d2 Z  h% HM30;
6 i. _( L# a. R5 O9 M# H8 R: G%

) S4 R! t" n/ }! m6 E& h9 `现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
, Q) E+ y; e9 B/ b  `1 M6 h: r8 M9 j