车削多头螺纹宏程序

627604250

程序原文如下，广数系统

. U! a2 m8 {4 o% X
; K$ ^4 ]$ @$ j7 Y%
- y! B8 X, I3 n) N1 e- XO0001
' z0 Z% [: ~" B! c( h5 r( g, f#1=10.;(大径)
#2=8.;(小径)
#3=-50.;(终点)
#4=1.5;(牙距)
+ [( x7 t6 j9 t" y9 X% Z' F#5=1.012;(缩水率）
9 P# a. m- z3 J3 {4 u$ p- d#6=15.;(起点)
7 |( O  _, T5 c7 Z/ E. A#7=6;(螺纹头数)
. y$ T' m" n8 i7 ]#8=#4*#5;
" s1 k$ ]& t% s3 w4 P: S& T9 F#9=#7*#8;
$ q. ^- G; r1 L" n) v: U#10=#6+#9
2 ]: A" w1 ]) C0 JT0101;
- E" S% a8 K8 {8 o7 j  M6 gM03 S500;
; V. |, [# J- yM08;
- x& w) g; \# c' `1 O2 g9 e9 o" z/ {WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
G76 P020160 Q20 R0.;
( x9 c* n4 S* K0 n  \) _* wG76 X#2 Z#3 P811 Q50 F#9;
5 B( k& N! P* t% v#6=#6+#8;
2 H/ q  U) a8 Y6 EEND 1;
G0 Z100. M09;
+ }) _. g2 G1 i/ w+ b, W; m; BM05;
M30;
2 u9 O' L# q. a" ?" x' t%
6 |/ b5 ?8 ]3 k
现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？