车削多头螺纹宏程序

627604250

程序原文如下，广数系统
* t. R4 }' P+ N1 V% Y& s* d( c7 O: b
: c. ]; e. Y2 T
: ], Q4 F. F# q' m% ~$ n7 N%
O0001
#1=10.;(大径)
% b; ^* f) x/ o# o5 B3 O: B#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
' y' f! L, u: O#6=15.;(起点)
( {) }+ `* ]/ ~- P: D" O4 y#7=6;(螺纹头数)
; J  |( C9 X2 H8 l2 {#8=#4*#5;
#9=#7*#8;
& @& B8 a$ O( q% n! W3 Z, f" g+ H#10=#6+#9
T0101;
M03 S500;
M08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
4 V' i' r3 [0 W4 c( v4 i3 p# _G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
8 T& p9 u4 [1 i#6=#6+#8;
+ ^6 k( T- O0 S# w9 \" i! FEND 1;
G0 Z100. M09;
M05;
7 H" r. F3 V0 I7 UM30;
%
" G1 P6 N& Y* ]
+ Z% v, E  P3 u# s! o9 s现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？