车削多头螺纹宏程序

627604250

程序原文如下，广数系统
! J6 h- y' m; y* B+ H# H7 W

%
O0001
#1=10.;(大径)
+ U  {1 I0 P! |- C" N, J: G- E#2=8.;(小径)
#3=-50.;(终点)
( @: `8 r3 V  p5 j#4=1.5;(牙距)
6 T$ C: J3 r, {; C3 B% B' {#5=1.012;(缩水率）
#6=15.;(起点)
; l: m5 a" l& P#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
; h6 E6 E& q2 g9 y+ r- nT0101;
- B# \! u# J& dM03 S500;
2 n9 S$ i: f. Q" }/ m' N, o" s. vM08;
! o7 w4 f! S. |6 h5 j6 N( @: ZWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
9 V2 z# x% c5 O; M1 _Z#6;
4 ^% v% a! V' P" q9 OG76 P020160 Q20 R0.;
% q5 {! r+ p* d% Z. rG76 X#2 Z#3 P811 Q50 F#9;
9 n0 V  X( f7 l% E8 j% A#6=#6+#8;
0 Y& e- b  n$ jEND 1;
# X' v. o% U; T/ f% bG0 Z100. M09;
+ F+ M: x: M" m; j% w4 k# P* E) P7 D3 qM05;
M30;
%
) i/ X, ]4 A! M6 O  O* a
  K4 M3 {2 @- m1 y6 z9 {; K现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？