車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統
$ w0 d2 I8 i2 e

3 Z' s: d- A! \7 P%
2 ]4 j- A! u* vO0001
#1=10.;(大徑)
, Y& E! v* \0 F0 z" f& E#2=8.;(小徑)
! J! L: n* m" ?+ w% S2 f( y#3=-50.;(終點)
#4=1.5;(牙距)
#5=1.012;(縮水率）
#6=15.;(起點)
#7=6;(螺紋頭數)
& u) k8 E) s. O$ T: i#8=#4*#5;
#9=#7*#8;
$ A; t0 O4 M$ n( f  s#10=#6+#9
  H* X6 Q1 i' e& zT0101;
M03 S500;
2 q0 \6 V5 i" ]" Z/ s% v7 h: O% jM08;
WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
6 g% O; m8 C, W# x3 N9 t2 X! IG76 P020160 Q20 R0.;
  D- q2 X! U, d2 ]" V* TG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
; @! S, [* e# P& e- N: r0 Q4 |END 1;
G0 Z100. M09;
M05;
# {: W, M8 f- v; L6 R5 LM30;
%
0 \! Y3 ]  T" ?: k0 P# N! N: e6 ?
現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？