车削多头螺纹宏程序

627604250

程序原文如下，广数系统
' U- }- R. b5 n! o
) d6 `5 ]: _. Q" i3 x- l4 m" E  D' a$ ~- T
%
, K% T/ X0 ^+ xO0001
#1=10.;(大径)
3 y# T0 j7 m9 o#2=8.;(小径)
#3=-50.;(终点)
/ C  R8 M/ a- W#4=1.5;(牙距)
; K( f! Q% @* N: v- Y. R#5=1.012;(缩水率）
2 A9 S; T* [# E5 U6 c5 p3 ^3 x#6=15.;(起点)
#7=6;(螺纹头数)
. s# b2 l1 J# S1 o0 }4 @1 s3 L#8=#4*#5;
& x$ d, _' Q$ q* q; i#9=#7*#8;
#10=#6+#9
8 Y7 V3 q( r, oT0101;
M03 S500;
; m, V- _" ?& @M08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
+ g+ k: f. \7 rZ#6;
G76 P020160 Q20 R0.;
3 O) y0 Q- Z( o, ?: c, ZG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
& T4 W- _8 K$ `( g* o* u3 sG0 Z100. M09;
' p* E4 \, G/ Q& O* R5 R. Y6 IM05;
M30;
8 ]! \* `1 o/ H4 Z  r3 F# }%

. v' `8 l# A! {' G+ a! `! P现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？