圓形型腔銑削宏程序

形型腔銑削宏程序余海波提供根據(jù)阿基米德螺旋線設(shè)計圓形型腔開粗及精銑。(K圖形□0003圖形日.0000.006100.00000.^65U(K圖形□0003圖形日.0000.006100.00000.^65U參數(shù)）（-■-.ay/N00010XYZA圓形型腔宏程序.prg%O0003;#1=50; //安全平面#2=2.; //Z向每層進給量#3=10.; //粗加工步距（刀具直徑的80%）#4=6.; //刀具半徑#6=0.1; //步距角#7=5; //抬刀距離#8=120; //Z向進給速度#9=1000; //粗加工進給速度#11=1000; //精加工進給速度#13=0.5; //精加工余量#17=50.; //型腔半徑#18=#17-#4;//實際加工型腔尺寸#26=10.; //型腔深度G54G90G80G40G49G00X0Y0;//快速定位到圓心G43Z50H01; //建立長度補償#125=#18-#13; //計算粗加工余量#120二#3/360.; //（求公式r=a*0中系數(shù)a）G0Z#1;//Z軸快速定位至安全平面G90G0Z5.;#131=#2; //Z向每層加工量賦值給累計加工深度N10G90G0X0Y0;G01Z-#131F#8;#121=0;#124=0;WHILE[#124LE#125]DO1;//如果極半徑大于待加工量時，跳出循環(huán)#123=#121+#6; //增加步距角#124=#123*#120; //計算極半徑#126=#124*SIN[#123] ; //計算Y軸坐標(biāo)#127二#124*C0S[#123]; //計算X軸坐標(biāo)G90G1X#127Y#126F#9; //根據(jù)計算出的坐標(biāo)值進行直線插補#121=#123;END1;G3X#127Y#126I-#127J-#126;//當(dāng)螺旋線到達規(guī)定極半徑時，以當(dāng)前位置銑整圓G0Z#7; //加工完一層后抬刀G90G0X0Y0;#130=#26-#131; //計算Z向待加工量#131=#131+#2; //計算Z向累計加工量IF[#130GE#2]GOTO10; /判斷Z向是否加工到位，未到位返回N10繼續(xù)加工G90G0Z#7; //抬刀G0X0Y0;G1Z-#26F#8; //進刀至Z向最終加工尺寸#121=0;#124=0;WHILE[#124LE#125]DO1; //循環(huán)精銑底面#123=#121+#6;#124=#123*#120;#126=#124*SIN[#123];#127=#124*COS[#123];G90G1X#127Y#126F#9;#121=#123;END1;G3X#127Y#126I-#127J-#126;G90G0Z#7; //抬刀G00X[#18/2.]Y[#18/2.]; //快速定位到型腔壁精銑起點位置G1Z-#26F#8; //進刀至型腔底面G3X0Y#18I[-#18/2]J0F#11;//圓弧切入G3X0Y#18I0J[-#18]; //精銑型腔壁G3X[-#18/2.]Y[#18/2]I0J[-#18/2];//圓弧切出G90G00Z100.;//Z向返回G0X0Y0; //返回圓心位置M30;%編輯備注1、變量說明#120：阿基米德系數(shù)a#121——#124保存計算結(jié)果宏變量#125：粗加工余