車削多頭螺紋宏程序

627604250

程序原文如下，廣數(shù)系統(tǒng)
. B1 l6 _0 l8 \& n5 V: i6 `. S
  j  S4 [! Z& P7 q$ P
%
O0001
#1=10.;(大徑)
/ f) h- G# |3 _! }3 `* E#2=8.;(小徑)
#3=-50.;(終點(diǎn))
#4=1.5;(牙距)
# c" U" d7 S+ D  N#5=1.012;(縮水率）
#6=15.;(起點(diǎn))
#7=6;(螺紋頭數(shù))
#8=#4*#5;
#9=#7*#8;
/ Q, p8 G/ ^+ u) [* o# ]5 U* ?#10=#6+#9
8 k( l8 U* Q( WT0101;
M03 S500;
5 k1 m4 b7 z" Z, p4 ?. S$ BM08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
% I2 r- @- k: W8 b1 a6 LZ#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
: m- p4 e" J1 {- R" e( p  a" E& r#6=#6+#8;
! R+ x2 G3 M6 J; n, ^5 xEND 1;
G0 Z100. M09;
6 G7 i8 O) J7 E9 {/ _' W$ TM05;
M30;
* C, j$ Z2 v& V/ |/ d%

' b& {2 ^# y0 ?" C7 e現(xiàn)在想在這個(gè)基礎(chǔ)上進(jìn)一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒(méi)有這方面大神指點(diǎn)一下呢？
5 s9 Q8 M8 B* G# y4 w