車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統
5 z" W! w! E7 }; I* S
$ Q1 h3 o9 }" o
8 n9 x, ^6 \4 g  L# Z! O%
$ ~% q# S6 D% F9 HO0001
#1=10.;(大徑)
#2=8.;(小徑)
& v% c( [3 K6 Z( k#3=-50.;(終點)
% q1 _& X9 n+ ?#4=1.5;(牙距)
3 S6 t0 `- D: n. T1 l#5=1.012;(縮水率）
#6=15.;(起點)
5 B. c+ ?8 |! a#7=6;(螺紋頭數)
#8=#4*#5;
! p& x1 T0 t; E+ w#9=#7*#8;
- m* ]0 e+ s' C7 S#10=#6+#9
T0101;
* N" h# u4 K. \  n7 `6 uM03 S500;
M08;
  m8 H% x$ r3 `WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
/ w' I. S8 x  h: `  u; s5 BZ#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
$ m/ i( _* A% |* U) P) d% |; Z#6=#6+#8;
; d2 H7 T5 I$ N' t7 VEND 1;
G0 Z100. M09;
M05;
( {" Z3 e% L  ~( W5 cM30;
%
' \  t6 B7 X' Q2 I. c
現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？
  f! q& y; \$ E; v% @$ {/ D  ^