发一个走螺旋线的宏程序

少年游

这是两年前编的一个走螺旋线的宏程序，挖大直径圆腔用的。走刀路径用中心钻试过，没问题，由于后来改用牛鼻刀层降了，没有经过实际加工的检验。只是感觉后边编的有点糙，如果是用象限的概念直接把园做出来，而不是回中心再走圆应该更好了。程序中#7是孔直径，#20是刀直径。
, H- R# O& B( o: n& L8 d$ [4 m% D% K$ AG90;
#100= #5001;
4 }# ^' @8 g4 \3 T#101= #5002;
4 `! e" ~& S" y: D# z2 t3 U( ~* y7 X- h#5=[[#7-#20]/2.0];
" F5 g0 P) J1 `8 Q+ q1 r& L#1=0.05；
2 Z: _; j& H- n: SG52 X#100 Y#101;
N1；
#2=0；
WHILE[360.0GE#2]DO01;
& t! e$ v! ]2 f#3= #1*COS[#2];
#4= #1*COS[#2];
5 g/ L3 y/ D$ J) x* ^7 K+ sG01 X#3 Y#4;
4 ]2 v3 `7 A# k, [#1 = #1+0.001;
#2=#2+0.05;
( m; w1 ^7 u* _IF[#1GT#5]GOTO02;
END01;
- E: w3 X5 E) _# D. D$ F9 ^6 I6 @: vIF[#5GE#1] GOTO01;
: R2 u! {7 K7 h0 eGOTO03;
N2;
G01 X0 Y0;
0 i) j# n' b- G9 ]! m' dG01 Y-#5;
G03 J#5;
$ v, V' j' q9 h9 j0 c, W3 F6 yG01 Y0;
G52 X0 Y0;
M99;

少年游

最后一个GOTO03应该为GOTO02

djs2661003

#5001 #5002 是什么系统变量

jackjones

不管怎么样，学习了