|
这是两年前编的一个走螺旋线的宏程序,挖大直径圆腔用的。走刀路径用中心钻试过,没问题,由于后来改用牛鼻刀层降了,没有经过实际加工的检验。只是感觉后边编的有点糙,如果是用象限的概念直接把园做出来,而不是回中心再走圆应该更好了。程序中#7是孔直径,#20是刀直径。
G90;
#100= #5001;
#101= #5002;
#5=[[#7-#20]/2.0];
#1=0.05;
G52 X#100 Y#101;
N1;
#2=0;
WHILE[360.0GE#2]DO01;
#3= #1*COS[#2];
#4= #1*COS[#2];
G01 X#3 Y#4;
#1 = #1+0.001;
#2=#2+0.05;
IF[#1GT#5]GOTO02;
END01;
IF[#5GE#1] GOTO01;
GOTO03;
N2;
G01 X0 Y0;
G01 Y-#5;
G03 J#5;
G01 Y0;
G52 X0 Y0;
M99;
|
|