車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統
0 B$ D7 O" Y! }* t* o- d, w

%
9 T' F. s0 p( u9 C0 XO0001
#1=10.;(大徑)
#2=8.;(小徑)
#3=-50.;(終點)
#4=1.5;(牙距)
#5=1.012;(縮水率）
1 ^. {) }4 _1 n- l. i7 A#6=15.;(起點)
#7=6;(螺紋頭數)
' I) D4 F/ b! F2 U#8=#4*#5;
" G! C3 G/ L" B#9=#7*#8;
6 B0 A7 J5 o5 c( U& o! @#10=#6+#9
& L) B! Q! ~4 Y) j# lT0101;
6 ^( U6 m" b, Z% A+ QM03 S500;
  `- Z' `9 f3 F  _4 c% N5 gM08;
; i% m  {% L1 @+ t' ^$ p# f9 s8 bWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
' d& P) J+ d( i; j$ T; n; TZ#6;
4 b3 S6 f4 X5 d6 G$ dG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
& V! u6 [* J/ k4 d#6=#6+#8;
% f- k5 Q" R0 h4 j+ L- HEND 1;
G0 Z100. M09;
8 m3 E5 s& x1 J  v6 SM05;
M30;
. f( S+ W6 z# G7 D2 a/ V$ W! r%
1 D3 F' Q/ T, o/ J! W
9 g4 `( [' x) c: K. e現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？