车削多头螺纹宏程序

627604250

程序原文如下，广数系统
' E1 H# E3 I+ w. o) o
! N0 {) l& q/ y& z
( h9 H/ ?0 v2 E4 A5 ]%
O0001
6 \! L6 B+ O/ h5 L7 X# v0 i4 b* z#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
. p9 _6 E5 ~' a  I( m3 [#4=1.5;(牙距)
#5=1.012;(缩水率）
& c* E# W8 `/ s: c#6=15.;(起点)
#7=6;(螺纹头数)
# ^6 D9 S: E( ^) i, {2 e#8=#4*#5;
' E- d$ S) @9 p& ]9 Q% A8 A#9=#7*#8;
#10=#6+#9
T0101;
M03 S500;
M08;
# d2 H* o8 Z0 uWHILE [#6 LT #10] DO 1;
0 K4 n3 {& _* p8 oG0 G99 X[#1+2.];
5 C, h! X( X% ^, d1 |Z#6;
! D7 Q0 K/ b  k9 D2 T5 Y% G3 G; ]G76 P020160 Q20 R0.;
) [$ `# m  c" b8 H9 o3 QG76 X#2 Z#3 P811 Q50 F#9;
0 w/ n# n+ z8 j, m7 g#6=#6+#8;
END 1;
& e+ x/ ~( i/ e2 X5 ZG0 Z100. M09;
M05;
M30;
%

7 j5 U3 U4 }2 Z/ Q9 b现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？