車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統

- K5 r5 i, c8 u
- i9 g/ n7 j, h4 ~1 u; k%
5 \9 K$ C) W7 d# l1 KO0001
#1=10.;(大徑)
#2=8.;(小徑)
  Z1 r( C% C; k) b6 H& a#3=-50.;(終點)
: T: m+ Q' h2 U6 [1 E#4=1.5;(牙距)
  w/ O2 z4 y" @8 A0 b0 a#5=1.012;(縮水率）
#6=15.;(起點)
/ M- x6 |: ^3 Z) v3 k& d#7=6;(螺紋頭數)
% h7 v! W) W6 u2 ^#8=#4*#5;
1 N! F. a6 K- N#9=#7*#8;
#10=#6+#9
+ \9 Y) L% U+ t& k- l6 ?" HT0101;
& v8 g3 a+ m5 @( v: jM03 S500;
7 h1 n" A, ~! m2 m! ZM08;
WHILE [#6 LT #10] DO 1;
% k& j* Q/ w  o/ m- l! ]G0 G99 X[#1+2.];
7 Y) {4 M" K# X2 `Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
; h  {( v( f% U0 @#6=#6+#8;
END 1;
, f0 g( W3 _) [4 X( ^G0 Z100. M09;
& Y: P. l, M+ YM05;
: b9 s6 h0 [& gM30;
%
( G  n( B4 z+ x6 P2 ?' ]
1 a& ]% l2 u# O+ O( x現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？
' a/ i0 Q# H% K  E- }! q" V