车削多头螺纹宏程序

627604250

程序原文如下，广数系统
. t9 z! g$ Q, c% b" w8 T

%
* }# x9 p9 m" \. L3 M2 I: SO0001
#1=10.;(大径)
" C3 F/ B% C5 a$ Y& y2 d#2=8.;(小径)
1 v8 B8 A# d4 }; o3 z- x; T#3=-50.;(终点)
3 `! _, C0 t+ {; K) Y" W4 {% F6 O#4=1.5;(牙距)
3 H3 K$ L4 q3 u#5=1.012;(缩水率）
#6=15.;(起点)
' P2 O* B6 u' q- B" A#7=6;(螺纹头数)
  o5 S! a0 n/ r! m& X# s& b#8=#4*#5;
#9=#7*#8;
+ |2 x* P6 R4 R# m8 i) G* e$ t9 N: p#10=#6+#9
T0101;
0 m3 G* M4 j6 n2 w) cM03 S500;
  }+ x8 T5 m0 J& g, Q7 fM08;
WHILE [#6 LT #10] DO 1;
5 d/ @8 C4 O2 i5 W- A* g$ o; MG0 G99 X[#1+2.];
Z#6;
; |2 a3 k% Q6 I# a. b! A- vG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
, U4 Y, P) @6 H% [#6=#6+#8;
9 I5 w2 K3 V+ `9 _; b9 G; q! ZEND 1;
G0 Z100. M09;
" D9 M* t) i9 m* ~M05;
& z1 z% i! ~7 o4 R7 rM30;
%

# x* N0 x9 X! o  b' O' S8 Q# A现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
6 g0 t7 e; S3 K. M  }) q5 J/ W