车削多头螺纹宏程序

627604250

程序原文如下，广数系统

' c! ]! L8 ~. a! |0 z
%
O0001
#1=10.;(大径)
* r1 G* J8 P& u#2=8.;(小径)
' O: q; B6 C1 V1 p' N#3=-50.;(终点)
#4=1.5;(牙距)
#5=1.012;(缩水率）
$ e* [( p# ~' j6 V3 c8 Z7 W& k0 Q8 @#6=15.;(起点)
#7=6;(螺纹头数)
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
T0101;
M03 S500;
5 j6 K8 A  W6 P0 g. W, y0 VM08;
9 a# E, G5 F# w' [WHILE [#6 LT #10] DO 1;
6 U8 m$ T% I5 qG0 G99 X[#1+2.];
; J" f7 b" ?& @* m" x) q7 Q( \Z#6;
" M0 @: e: B7 @- O1 p' n8 e) KG76 P020160 Q20 R0.;
3 N: n2 l0 c4 C) g" RG76 X#2 Z#3 P811 Q50 F#9;
& i& I- a; i1 C, U7 o) m#6=#6+#8;
END 1;
G0 Z100. M09;
M05;
M30;
%
+ _7 A- F" ?/ d7 e# }: X3 {* q
% q( Q- s% G, {# n现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？