车削多头螺纹宏程序

627604250

程序原文如下，广数系统
( v. C; N  k+ V2 l" M1 R4 b
; r3 a$ m4 G, v5 E6 B
; G: C# o9 _4 f  Y8 q& l%
" o  A+ W6 t( H! @+ B- ~O0001
#1=10.;(大径)
8 L- H! K1 |: e! K$ `#2=8.;(小径)
- u( Q  |; T: y  [5 |#3=-50.;(终点)
* u5 O7 s4 ^( ]* J#4=1.5;(牙距)
#5=1.012;(缩水率）
#6=15.;(起点)
#7=6;(螺纹头数)
6 B* z  h2 y# S8 p, ?#8=#4*#5;
; N8 n- \/ t* ~4 K( |' O#9=#7*#8;
#10=#6+#9
T0101;
/ o8 A5 j# Y  ]2 h) k6 u$ u( YM03 S500;
M08;
+ V; j5 a0 W& Q: OWHILE [#6 LT #10] DO 1;
/ W* h' k, A! y% m& bG0 G99 X[#1+2.];
3 ]6 ~) d2 {) DZ#6;
5 z% v1 L6 V+ B5 ZG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
3 v7 ^  P4 V  T1 M  p- j' J#6=#6+#8;
END 1;
/ N+ e  l- }. n# l; |4 J! w$ b3 rG0 Z100. M09;
4 V' H$ \9 s% y1 r" N, H$ |: kM05;
M30;
%

2 R) V* D. e: x* J; o2 i现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
0 z" h( P3 J9 V& E