车削多头螺纹宏程序

627604250

程序原文如下，广数系统
% m( v, c6 v) t7 c

$ T6 I" s$ S, }2 f! q, r4 L! F. C%
O0001
#1=10.;(大径)
( c9 |- a: q% C" S7 i#2=8.;(小径)
0 p3 ]1 X7 Y6 w, B/ J#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
- W% s: C( S; A- g1 m. q% o9 ]9 W#9=#7*#8;
#10=#6+#9
* o, K8 f' z4 MT0101;
M03 S500;
& b6 S6 R; O/ K* gM08;
WHILE [#6 LT #10] DO 1;
3 C) B3 \+ z% a+ @- ^8 W7 LG0 G99 X[#1+2.];
Z#6;
; N3 ]( N+ q# F, @6 {G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
! y0 C+ I. V: Z& s3 |6 g#6=#6+#8;
1 B/ ]7 V  b1 OEND 1;
G0 Z100. M09;
' h$ X* c- j. L& Y( K! WM05;
M30;
%
' @2 ?( p  Z7 _3 o5 o
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
0 A4 S, w3 R5 Z6 W