车削多头螺纹宏程序

627604250

程序原文如下，广数系统
  x1 s0 A# Q+ _
( g: l& l$ n( f' c
% Z( o. L4 x6 H2 c  Q0 ?; y  [%
% _* \- o; U2 b' KO0001
#1=10.;(大径)
#2=8.;(小径)
4 A" q4 ?6 l% j#3=-50.;(终点)
#4=1.5;(牙距)
4 }3 d1 {( G" e7 L; s5 j* O#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
% L8 G; \4 [2 Y, s6 Z#8=#4*#5;
#9=#7*#8;
' }" j  n5 J  M, u#10=#6+#9
& b6 Q- J. l5 }6 b  A2 M) R4 S  NT0101;
% M% M0 _, i" ~- CM03 S500;
+ q# m! k5 d1 M2 nM08;
WHILE [#6 LT #10] DO 1;
& F4 G* t; N- O1 S  D. cG0 G99 X[#1+2.];
2 r$ f& X" T7 G3 Q  DZ#6;
8 h! d  x8 x5 rG76 P020160 Q20 R0.;
6 A! {  ?! e2 TG76 X#2 Z#3 P811 Q50 F#9;
& O$ c! I! M: I  ~: K6 i#6=#6+#8;
" J3 {" B2 k, N7 FEND 1;
G0 Z100. M09;
M05;
7 |; x. j  X. c! W" P; }M30;
, Q: J- l# g3 j7 }* G+ x6 K8 C%
# _1 N  _+ V. e8 f$ M0 Y3 F5 Y
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？