車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統
2 H# n) B3 ^9 K7 E

%
O0001
/ C  B0 ?8 F. b* @#1=10.;(大徑)
' w: U, x0 z) ^/ O#2=8.;(小徑)
. V- r7 l% e4 o: ~, k#3=-50.;(終點)
#4=1.5;(牙距)
. E; x: k4 C9 n/ X! J2 @" s#5=1.012;(縮水率）
#6=15.;(起點)
#7=6;(螺紋頭數)
#8=#4*#5;
#9=#7*#8;
. |) ]5 Q( R% l) S# `6 I: a#10=#6+#9
7 L+ n* Q& W! V# O/ XT0101;
M03 S500;
M08;
0 [* x5 m! t8 Z9 n% Q7 Q4 C! OWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
8 ~7 R; v" r! ~0 T9 J3 T2 X0 sG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
/ F# q# C+ }3 T+ ^; u#6=#6+#8;
  x: a+ k0 P" t& nEND 1;
G0 Z100. M09;
M05;
4 H) W- j- Y) z; a: vM30;
% w( k9 P  r: x2 I%
$ j) b. R0 n0 D* Y# z; e! \
) j* a# D. l6 w" r3 s8 T# K/ J& j現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？
+ W+ r% Z% q* P) H( W* [( D