車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統

; I' z0 s. X5 v! A+ j, t
; j+ w+ F7 X! e# ?%
O0001
. p/ f, ~( t0 B8 ~0 k% F7 c; |. A# H/ X#1=10.;(大徑)
+ d& Q3 p- Y" D$ O' @#2=8.;(小徑)
8 C0 G6 g# f& F8 a# ?. F#3=-50.;(終點)
& l, F9 A3 y( E( h7 S" m, ^#4=1.5;(牙距)
#5=1.012;(縮水率）
5 t: t; u$ ~  F+ r8 I#6=15.;(起點)
#7=6;(螺紋頭數)
- F' V) O9 m3 F8 c#8=#4*#5;
$ o  J0 e( f& E6 [#9=#7*#8;
  r" O9 w0 F  `#10=#6+#9
  P9 B7 K* I6 ?& DT0101;
M03 S500;
M08;
WHILE [#6 LT #10] DO 1;
7 H! ~- Z( d: h6 ?8 o7 @9 gG0 G99 X[#1+2.];
& U  N& q! k3 AZ#6;
G76 P020160 Q20 R0.;
" Y/ C2 u9 A1 vG76 X#2 Z#3 P811 Q50 F#9;
  I: |; ], d1 `#6=#6+#8;
END 1;
/ r5 a. {# J/ [* AG0 Z100. M09;
( t2 {! I) ^: G  d, P, X( SM05;
M30;
1 V6 K. X+ t" n% V2 v5 H8 V/ x" J%

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