車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統

+ {% F9 C5 h5 v5 W6 ]$ l
3 ^% s* U* Y0 G' y+ g%
  r; O/ |3 p6 @9 X; @O0001
#1=10.;(大徑)
#2=8.;(小徑)
9 M5 O$ f7 O$ I. G6 k, \! K" F#3=-50.;(終點)
% S4 f; S8 h! t- \2 j# Q1 O#4=1.5;(牙距)
' M4 K* p& [! q( h% E" I* F#5=1.012;(縮水率）
#6=15.;(起點)
5 {" Y1 `; I& E5 [. _3 a$ S#7=6;(螺紋頭數)
#8=#4*#5;
2 s8 X8 @0 S) a( D. `1 x$ d' L1 X#9=#7*#8;
$ z- I! T3 i4 s2 Y% _7 Z#10=#6+#9
7 x6 m  F4 K1 I9 c' A* P$ DT0101;
M03 S500;
M08;
WHILE [#6 LT #10] DO 1;
" H7 n* W, L6 H! tG0 G99 X[#1+2.];
6 o' s& S9 U/ Z8 CZ#6;
G76 P020160 Q20 R0.;
+ [+ M8 _2 S* B3 n3 TG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
END 1;
1 T$ U, {3 _5 Q; I3 fG0 Z100. M09;
M05;
M30;
%

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