車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統

# `- k( A  y4 }0 v1 Z
, _" k/ F+ X; F2 A2 u1 E/ h%
5 Y8 }- \0 q0 W! Q. X/ lO0001
#1=10.;(大徑)
#2=8.;(小徑)
" Q4 W9 [$ z3 Y. X4 m7 I, I#3=-50.;(終點)
#4=1.5;(牙距)
6 c: d. I% E/ A* ?3 b) K. o#5=1.012;(縮水率）
#6=15.;(起點)
( w" J8 o+ p0 Y; S3 V#7=6;(螺紋頭數)
#8=#4*#5;
- v, A2 v, q, Q  k1 a1 c#9=#7*#8;
#10=#6+#9
T0101;
$ @1 G4 d/ ~, VM03 S500;
M08;
+ T7 ~$ N& d, u* iWHILE [#6 LT #10] DO 1;
- g) W0 g% v$ \# `G0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
, f' M7 ]& w0 J  X5 X2 C; TG76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
; L3 L- y7 R1 P6 d8 aEND 1;
G0 Z100. M09;
M05;
M30;
4 r2 ^9 i8 ^: Y$ k%
' j) l! `/ i, n9 v! q2 D& I
0 @4 t8 ~' }# V8 B1 r8 v現在想在這個基礎上進一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補刀補實現的，有沒有這方面大神指點一下呢？
/ Y6 p8 ]( ^: B& O! v) I