车削多头螺纹宏程序

627604250

程序原文如下，广数系统
" K, ^# ^- @2 f# M8 C

" P' ]" a: E, n+ S5 i) b& a; r( u%
O0001
#1=10.;(大径)
+ w' I4 T( k+ P- v#2=8.;(小径)
6 ^, j! i8 m* X! }8 |7 I- e" w#3=-50.;(终点)
# {/ R7 P, x( a+ U8 O& p#4=1.5;(牙距)
: r8 m% \3 E4 q3 Z0 q+ x% L#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
( w9 O0 h4 l  q8 q! t2 v  r#9=#7*#8;
) b' C1 O- S% r, n#10=#6+#9
T0101;
M03 S500;
M08;
& K8 \" B7 g' k) D  X" w- @WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
, I; T, C& |& }4 D7 jZ#6;
/ s8 P- o1 [5 ]9 A8 hG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
0 ^2 s# C, E  R#6=#6+#8;
END 1;
G0 Z100. M09;
M05;
M30;
%

, r- K% f) Q1 _现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
& m+ I7 f1 d# Z+ a. |