发一个走螺旋线的宏程序

少年游

这是两年前编的一个走螺旋线的宏程序，挖大直径圆腔用的。走刀路径用中心钻试过，没问题，由于后来改用牛鼻刀层降了，没有经过实际加工的检验。只是感觉后边编的有点糙，如果是用象限的概念直接把园做出来，而不是回中心再走圆应该更好了。程序中#7是孔直径，#20是刀直径。
G90;
#100= #5001;
# |* \6 ^( |- U4 v, s8 e2 w#101= #5002;
#5=[[#7-#20]/2.0];
% A6 Z9 F% x  I9 i& v#1=0.05；
/ r" `0 j5 ]. ~) x9 E. J, S6 cG52 X#100 Y#101;
N1；
#2=0；
5 L& t6 B/ q7 |# wWHILE[360.0GE#2]DO01;
( ^8 _( H7 v4 }6 ^8 M& i#3= #1*COS[#2];
#4= #1*COS[#2];
2 v6 X& E+ U* }/ G$ c8 {G01 X#3 Y#4;
#1 = #1+0.001;
" l, @; v8 e' s: X9 [#2=#2+0.05;
IF[#1GT#5]GOTO02;
END01;
IF[#5GE#1] GOTO01;
# X4 t( z! P  z+ h- ~2 AGOTO03;
4 I9 X/ m3 ]4 MN2;
6 ]# X# l7 u* i+ \. L8 M+ T. XG01 X0 Y0;
G01 Y-#5;
G03 J#5;
- K$ [  j) |+ t, l' Y4 {, gG01 Y0;
  O* D6 S# N" w' ?G52 X0 Y0;
M99;
3 ?; S# ~# ~. ]; t" u1 j4 s! Y

少年游

最后一个GOTO03应该为GOTO02

djs2661003

#5001 #5002 是什么系统变量

jackjones

不管怎么样，学习了