車削多頭螺紋宏程序

627604250

程序原文如下，廣數(shù)系統(tǒng)

5 U& _, G$ I8 Z+ f: w# A9 y: V
% M, ]( X8 `( c2 ~% q%
  R0 O( `5 ?8 xO0001
#1=10.;(大徑)
. A- [  b  i) z, Z  ]9 R9 v0 }#2=8.;(小徑)
#3=-50.;(終點(diǎn))
, g8 O* ~: O; U1 @6 R6 ]#4=1.5;(牙距)
, ^. D# q6 f5 K: H2 w#5=1.012;(縮水率）
+ R8 o, e) F1 M' a#6=15.;(起點(diǎn))
#7=6;(螺紋頭數(shù))
#8=#4*#5;
#9=#7*#8;
6 @( x- H- @" |6 i& ^#10=#6+#9
+ b4 `- D' @( N+ s5 ?7 O- X+ \T0101;
M03 S500;
M08;
WHILE [#6 LT #10] DO 1;
: e) ~1 D  h- Z  ~9 xG0 G99 X[#1+2.];
7 f$ O4 w. a; \6 v9 w# T! k; ^Z#6;
2 }$ Y( h# Z* ^3 Z  b4 G- @9 i! DG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
# Y1 M  W: X' h#6=#6+#8;
6 L% h( F- n& y/ ~( f8 rEND 1;
G0 Z100. M09;
+ R% K8 H! x5 U, `% G+ L) r: x* l* LM05;
M30;
%
4 m1 H$ T. C; v( G8 q& J) d
現(xiàn)在想在這個基礎(chǔ)上進(jìn)一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒有這方面大神指點(diǎn)一下呢？