車削多頭螺紋宏程序

627604250

程序原文如下，廣數系統
! q1 \* _4 K* v

%
# k0 ?) F" r2 D: }* W, o$ h1 x0 ZO0001
#1=10.;(大徑)
#2=8.;(小徑)
0 J. c# o4 d6 j* k, j#3=-50.;(終點)
#4=1.5;(牙距)
/ P% P# f' K7 m#5=1.012;(縮水率）
#6=15.;(起點)
6 R: o* W6 u6 q5 M/ J" [' Q* r% {#7=6;(螺紋頭數)
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
2 x6 c0 s0 S& t& [6 e" @T0101;
- y" N& Q% k! xM03 S500;
M08;
$ v# R# o+ w  Z7 nWHILE [#6 LT #10] DO 1;
" h' l" h- O" u; L2 EG0 G99 X[#1+2.];
Z#6;
4 I* B# \% F% A7 yG76 P020160 Q20 R0.;
8 D/ c, _" f+ E9 z( J- k/ AG76 X#2 Z#3 P811 Q50 F#9;
$ j& }! B) m) U2 F#6=#6+#8;
+ e2 p% A- `$ _END 1;
G0 Z100. M09;
/ o1 N% C9 j, i' U4 F7 hM05;
M30;
3 F+ L3 B  C( V%

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