车削多头螺纹宏程序

627604250

程序原文如下，广数系统
9 o, V: V- n3 K/ L* f

3 T) E; _+ ?6 ?# z# N( i0 p%
$ Z+ U4 }7 @8 k2 q0 h9 R& g6 |3 HO0001
* I; Z! P/ i' C* T#1=10.;(大径)
7 h  s2 G0 G  \3 C+ s# D#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
* F6 g- T% b) c$ ~5 I% t  W#7=6;(螺纹头数)
7 N) W7 ^* z' @% e9 K4 S#8=#4*#5;
8 T; S" H3 ]2 V0 Y! S3 M  a#9=#7*#8;
#10=#6+#9
T0101;
M03 S500;
M08;
, v8 [: D3 j6 Z5 s2 F3 Y$ `WHILE [#6 LT #10] DO 1;
; q) q) M) c5 f8 N! }0 VG0 G99 X[#1+2.];
; C( x0 v7 q; v) @; w# ^! K0 EZ#6;
G76 P020160 Q20 R0.;
3 {% V  ^8 G% A/ x/ t" z* d: NG76 X#2 Z#3 P811 Q50 F#9;
# n* Z9 Y2 V5 E7 Q# k9 E" F; p: ~#6=#6+#8;
END 1;
8 h$ X8 g2 f$ ~8 ?9 u$ P$ f5 j) rG0 Z100. M09;
9 Z$ K( ?* p$ z5 D6 WM05;
* q' i' k# ?3 Z8 M6 N* UM30;
%

, i/ ~" s6 O. ~. P1 A; D现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？