車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統

  N  |6 r6 p! g# o; y: U9 D) z  l
$ p; y& @0 n% q% |' i6 a%
O0001
#1=10.;(大徑)
5 k9 H+ t! C0 r5 b, `4 r. [1 f#2=8.;(小徑)
#3=-50.;(終點)
6 V- s7 k3 A, }#4=1.5;(牙距)
#5=1.012;(縮水率）
) B; W- ^% y  Y+ Z. g6 m#6=15.;(起點)
/ W9 i0 Q- p5 j#7=6;(螺紋頭數)
2 M" v) ~4 Z6 i0 N- _: G0 A#8=#4*#5;
#9=#7*#8;
% R, R& N8 p7 w#10=#6+#9
& _" Z* W8 y0 b! l- E' {T0101;
" |; L3 S8 J" ^2 AM03 S500;
M08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
; m9 [( i/ h2 [2 p( G3 e* }G76 X#2 Z#3 P811 Q50 F#9;
1 o1 y1 Q: ~6 j#6=#6+#8;
6 X- ]' _- h, Q; IEND 1;
/ Q9 h3 m9 c5 d: J, GG0 Z100. M09;
1 ~+ r  w2 }3 T4 T# k+ VM05;
# W- L8 A5 j  {% q- p0 gM30;
/ a9 d6 [) ?; L. V- }$ i8 D5 g%

現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？