圆形型腔铣削宏程序.docVIP

圆形型腔铣削宏程序 余海波 提供 根据阿基米德螺旋线设计圆形型腔开粗及精铣。 圆形型腔宏程序.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. ; //型腔深度 G54 G90 G80 G40 G49 G00 X0 Y0 ; //快速定位到圆心 G43 Z50 H01 ; //建立长度补偿 #125=#18-#13 ; //计算粗加工余量 #120=#3/360. ; //(求公式r=a*θ中系数a) G0 Z#1 ; // Z轴快速定位至安全平面 G90 G0 Z5. ; #131=#2 ; //Z向每层加工量赋值给累计加工深度 N10 G90 G0 X0 Y0 ; G01 Z-#131 F#8 ; #121=0 ; #124=0 ; WHILE [#124 LE #125] DO 1 ; //如果极半径大于待加工量时，跳出循环 #123=#121+#6 ; //增加步距角 #124=#123*#120 ; //计算极半径 #126=#124*SIN[#123] ; //计算Y轴坐标 #127=#124*COS[#123] ; //计算X轴坐标 G90 G1 X#127 Y#126 F#9 ; //根据计算出的坐标值进行直线插补 #121=#123 ; END 1 ; G3 X#127 Y#126 I-#127 J-#126 ; //当螺旋线到达规定极半径时，以当前位置铣整圆 G0 Z#7 ; //加工完一层后抬刀 G90 G0 X0 Y0 ; #130=#26-#131 ; //计算Z向待加工量 #131=#131+#2 ; //计算Z向累计加工量 IF [#130 GE #2] GOTO 10 ; //判断Z向是否加工到位，未到位返回N10继续加工 G90 G0 Z#7 ; //抬刀 G0 X0 Y0 ; G1 Z-#26 F#8 ; //进刀至Z向最终加工尺寸 #121=0 ; #124=0 ; WHILE [#124 LE #125] DO 1 ; //循环精铣底面 #123=#121+#6 ; #124=#123*#120 ; #126=#124*SIN[#123] ; #127=#124*COS[#123] ; G90 G1 X#127 Y#126 F#9 ; #121=#123 ; END 1 ; G3 X#127 Y#126 I-#127 J-#126 ; G90 G0 Z#7 ; //抬刀 G00 X[#18/2.]Y[#18/2.] ; //快速定位到型腔壁精铣起点位置 G1 Z-#26 F#8 ; //进刀至型腔底面 G3 X0 Y#18 I[-#18/2] J0 F#11 ; //圆弧切入 G3 X0 Y#18 I0 J[-#18] ; //精铣型腔壁 G3 X[-#18/2.]Y[#18/2] I0 J[-#18/2] ; //圆弧切出 G90 G00 Z100. ; //Z向返回 G0 X0 Y0 ; //返回圆心位置 M30 ; % 窗体顶端 窗体底端 备注 1、变量说明 #120：阿基米德系数a #121——#124保存计算结果宏变量 #125：粗加工余量 #126、#127：保存X、Y坐标值 #130：Z向待加工量 #131：Z向累计加工量 2、变量#1-#26可以用G65进行赋值，加工程序做为子程序使用G65调用