机械必威体育网址

找回密码
注册会员

QQ登录

只需一步,快速开始

搜索
查看: 2507 | 回复: 8
打印 上一主题 下一主题

高速钢粗皮铣刀磨齿专机程序(未验证,仅供参考)编程语法如有错误,实属抱歉

[复制链接]
跳转到指定楼层
1#
发表于 2018-1-8 14:22:46 | 只看该作者 | 只看大图 回帖奖励 | 倒序浏览 | 阅读模式
高速钢粗皮铣刀磨齿专机程序(未验证,较简易,仅提供工艺步骤,及原理供各位大侠参考)
! A! I/ ]2 I6 L) r4 [说明:这套磨齿程序为高速钢粗皮铣刀加工使用,原机器是20年前的老机器,
4 M" [1 H0 D3 m. B8 _$ J* ]使用法兰克系统,具备雷尼绍探头,
; w% |& b3 {+ ~2 @: k可测量刀具起始长度位置X向,刀齿位置A轴角度方向(已开槽的高速钢铣刀半成品毛坯料). X* P* N, n6 D) N7 n
因此机床系统老旧,经常故障,且维修备件难以寻找,工厂仅此一台机器可用,所以决定业余时间摸清楚加工工艺,再设计一台机器替换它,
7 [0 ]& h' |0 R0 S* r* G使用新代或者西门子4轴数控系统(X,Y,Z,A),增加左旋刀具的磨齿功能,所以就编写了如下程序。
! D% c3 n, k- q# Z/ I7 v3 p
L011(测量子程序,左右旋刀具)
L012(一齿磨削子程序,左右旋刀具)
MAIN01(磨削主程序,左右旋刀具)
L013(修整砂轮程序)(R圆弧砂轮修整,两轴插补,较简单,未编写,注意必须机内修整)
后来因老板缩减开支,旧机器用用修修可勉强支撑,就不愿投资此项目,没有机会验证程序的使用效果。
工程图截屏举例以4刃铣刀为例,齿距4mm(实际很少有这种,纯粹为方便画图)' y: z6 q! i6 r) U
本来想G代码发文档贴上了,为避免各位下载要积分,直接贴在帖子里了。各位复制保存就好。
L011(测量子程序,左右旋刀具)
N0010 MSG(“刀齿长度及A轴角度测量”)
N0020 G90 G94 G00 Y(R110)Z(R111);测头中心对准棒料中心
N0030 MWAS=1 G91 G01 X-(R118) F500;测头在X方向搜索距离内探测棒料
N0040 IF $AC_MEA[0]==0 GOTOF MEASERR;测量失败,减少探测搜索距离
N0050 R150=$AA_MW[X];记录碰撞当前X绝对坐标值,赋值到R150中
N0051 IF R155=1 GOTOF N0170;测量X,对准X和Y坐标位置
N0060 G91 G01 X2 F500;测头脱离棒料
N0070 Z(R119/2-0.5);测头抬高沟槽内部0.5mm处,准备测齿位置
N0080 X-(2+R154);测头进入沟槽内部1mm处,准备测齿位置
N0081 IF R159=0 GOTOB N0090;跳转右旋测齿
N0082 IF R159=1 GOTOB N0142;跳转左旋测齿
N0090 MWAS=1 G91 G01 A-(360/R103)F500;测头在A方向搜索距离内找齿
N0100 IF $AC_MEA[0]==0 GOTOF MEASERR;测量失败,检查测头是否进入沟槽
N0110 R151=$AA_MW[A];记录碰撞当前A绝对坐标值,赋值到R151中
N0120 G91 GO1 A5 F500;测头脱离沟槽A向5°(右旋刀具)
N0130 Z5;测头脱离沟槽Z向抬高5mm
N0140 A(R153-5);刀齿回测头接触角度,偏移R153到磨削所需角度,A对准
N0141 GOTOB N0150;跳过左旋测齿程序
N0142 MWAS=1 G91 G01 A(360/R103)F500;测头在A方向搜索距离内找齿
N0143 R151=$AA_MW[A];记录碰撞当前A绝对坐标值,赋值到R151中
N0144 G91 GO1 A-5 F500;测头脱离沟槽A向-5°(左旋刀具)
N0145 Z5;测头脱离沟槽Z向抬高5mm
N0145 A(R153+5);刀齿回测头接触角度,偏移R153到磨削所需角度,A对准
N0150 G90 G00 Y(R112);刀具中心线运行到砂轮正下方,Y对准
N0160 G91 G01 X(2+R154+R152);棒料前端运行到砂轮下方,X对准
N0170 G90 G00 X(R150+R152)Y(R112);棒料运行到砂轮下方,X,Y对准
N0171 G90 G00 Z(R108);Z轴起始位置,方便上下料,测量及对刀结束
N0180 M02测量程序结束
N0190 MEASERR:MSG("测量失败!探针未在有效距离内触发!")

o" {8 s3 Y$ K/ T
L012(一齿磨削子程序,左右旋刀具)
N001 MSG(“单个磨齿程序”)
N002 R156=(360×R104×TanR099)/(3.14×R119×R103);A螺旋角补偿角
N010 G91 G01 Z(-R100)F300;Z轴运行到磨削起始位置
N011 IF R159=0 GOTOB N0020;跳转右旋磨齿
N012 IF R159=1 GOTOB N0052;跳转左旋磨齿
N020 Z(-R101) A-(R102) F200;右旋刀具磨齿
N030 Z(R101+R100+R158)F500;磨完1齿,抬起Z轴,R158补偿下一齿高低
N040 A-(360/R103-R102+R156)F500;A轴负向分度运行到下一齿起始位置
N050 X-(R104/R103)F300;X轴负向进刀距离,错开磨削下一个齿
N051 GOTOB N060;跳过左旋磨齿程序,直接结束
N052 Z(-R101) A(R102) F200;左旋刀具磨齿
N053 Z(R101+R100+R158)F500;磨完1齿,抬起Z轴,R158补偿下一齿高低
N054 A(360/R103-R102+R156)F500;A轴正向分度运行到下一齿起始位置
N055 X-(R104/R103)F300;X轴负向进刀距离,错开磨削下一个齿
N060 M02;一齿磨削完成,下一齿磨削位置对准
2 K/ j N6 R8 @4 U T
MAIN01(磨削主程序,左右旋刀具)
N010 G90 G94 G01 X(R106)Y(R107)Z(R108)F600;快进到换料位置
N011 IF R114=0 GOTOF N014;不需要重新测量,直接磨削
N012 IF R114=1 GOTOF N013;需要重新测量,才能磨削,重新赋值
N013 L011;调用测量程序,找到刀齿X,A位置,摆正对齐
N014 G90 G00 X(R150+R152)Y(R112);根据上次赋值棒料X,Y对准
N015 A(R151+R153);根据上次探测赋值,摆正A轴对准
N021 M7 M13;磨头启动,冷却启动
N022 R109=1;磨齿开始计数
N030 L012;调用一齿磨削子程序
N040 R109=R109+1;磨齿计数加一,
N041 MSG(“已磨削齿数R109”)
N050 IF R109
N051 M15 M9;磨头停止,冷却停止
N060 G90 G01 G00 Z(R108)F600;磨削完成,先退Z轴
N070 Y(R107)F600;磨削完成,退Y轴
N080 X(R106)F600;磨削完成,退X轴
N090 M2;程序结束
L012(测量子程序,左旋刀具)
N0010 MSG(“刀齿长度及A轴角度测量”)
N0020 G90 G94 G00 Y(R110)Z(R111);测头中心对准棒料中心,
N0030 MWAS=1 G91 G01 X-(R118) F500;测头在X方向搜索距离内探测棒料
N0040 IF $AC_MEA[0]==0 GOTOF MEASERR;测量失败,减少探测搜索距离
N0050 R150=$AA_MW[X];记录碰撞当前X绝对坐标值,赋值到R150中
N0051 IF R155=1 GOTOF N0170;测量X,对准X和Y坐标位置
N0060 G91 G01 X2 F500;测头脱离棒料
N0070 Z(R119/2-0.5);测头抬高沟槽内部0.5mm处,准备测齿位置
N0080 X-(2+R154);测头进入沟槽内部1mm处,准备测齿位置
N0090 MWAS=1 G91 G01 A-(360/R103)F500;测头在A方向搜索距离内找齿
N0100 IF $AC_MEA[0]==0 GOTOF MEASERR;测量失败,检查测头是否进入沟槽
N0110 R151=$AA_MW[A];记录碰撞当前A绝对坐标值,赋值到R151中
N0120 G91 GO1 A5 F500;测头脱离沟槽A向5°
N0130 Z5;测头脱离沟槽Z向抬高5mm
N0140 A(R153-5);刀齿回测头接触角度,偏移R153到磨削所需角度,A对准
N0150 G90 G00 Y(R112);刀具中心线运行到砂轮正下方,Y对准
N0160 G91 G01 X(2+R154+R152);棒料前端运行到砂轮下方,X对准
N0170 G90 G00 X(R150+R152)Y(R112);棒料运行到砂轮下方,X,Y对准
N0171 G90 G00 Z(R108);Z轴起始位置,方便上下料,测量及对刀结束
N0180 M02测量程序结束
N0190 MEASERR:MSG("测量失败!探针未在有效距离内触发!")

2 A: w% T# I0 O* N! b( U% h" A+ w- ^; w. R; Q! ^7 g6 i
7 d' `) K0 |* n* Y( @

3 b. O( T4 ] c G* A) O p0 p' {, O; c2 A! E- K5 I7 }
补充内容 (2018-1-9 08:00):
; y9 J3 y: ~5 j# n' Z5 J) Q加工分布步骤:
& r* w6 ?# T/ ^6 E8 R8 E1判断左旋刀右旋刀" Z v+ D. c7 E4 H* K' S
2测量刀具长度位置,测量刀具刀齿位置* @) E; r4 P% ]/ G, N
3磨削加工波浪齿型

4轴磨齿专机结构参考.png(584.66 KB, 下载次数: 173)

4轴机床结构参考

4轴机床结构参考

参数表1.png(39.78 KB, 下载次数: 289)

R参数表

R参数表

参数表2.png(25.63 KB, 下载次数: 173)

R参数表

R参数表

粗皮铣刀.png(52.34 KB, 下载次数: 160)

粗皮铣刀

粗皮铣刀

主视图俯视图.png(4.8 KB, 下载次数: 271)

机床布局

机床布局

主视图探齿.png(5.32 KB, 下载次数: 218)

主视图探齿.png

俯视图探齿.png(5.16 KB, 下载次数: 208)

俯视图探齿.png

4条周刃上的第一个完整齿型.png(9.42 KB, 下载次数: 240)

4条周刃上的第一个完整齿型.png

R圆弧机内修整插补轨迹.png(14.43 KB, 下载次数: 248)

R圆弧机内修整插补轨迹.png

评分

参与人数2 威望+6 收起理由
韩寒11 + 1
狙击手 + 5

查看全部评分

2#
发表于 2018-1-8 16:47:21 | 只看该作者
佩服的五体投地
3#
楼主 | 发表于 2018-1-8 18:04:57 | 只看该作者
只有快乐 发表于 2018-1-8 16:47 7 h3 z+ T0 |2 x: X' u
佩服的五体投地

; Q; j6 W2 A( j. v1 F' f大侠不要太夸张~~~
* s# C1 Z1 G3 c. @
4#
发表于 2018-1-8 18:34:04 | 只看该作者
楼主如能亲自搞定这样程序也算是厉害了
5#
发表于 2018-1-8 18:43:11 | 只看该作者
好像不是完整的磨削程序,是程序过程表。P/ E# y6 j% n; S( F
确实是有心人。赞一个!
6#
发表于 2018-1-8 20:45:10 | 只看该作者
楼主这宏程序编得有一套,费了不少心思吧
7#
楼主 | 发表于 2018-1-9 07:53:11 | 只看该作者
xiaobing86203 发表于 2018-1-8 18:34 ( h* B( U1 R; E- C; g' f
楼主如能亲自搞定这样程序也算是厉害了

# [( [. J$ C# w9 r' _0 t& I呵呵,以后有机会再验证效果
! V9 K' S% ?; ?: S. u! H
8#
楼主 | 发表于 2018-1-9 07:55:26 | 只看该作者
狙击手 发表于 2018-1-8 18:43 ; L* B2 m1 v, r" _ y2 \3 O" ^* O
好像不是完整的磨削程序,是程序过程表。 8 `" S8 \) d) x' @! A
确实是有心人。赞一个!
$ F1 g9 S; M6 ^2 A. ~
是的,主要是加工的动作过程,机器没有做出来,所以一些进给速度,转速等信息没有完善。$ _( h. N. r8 x8 e' \

9 G6 @: y9 Q/ @0 r* w x3 i, X+ F+ e
9#
楼主 | 发表于 2018-1-9 07:56:54 | 只看该作者
韩寒11 发表于 2018-1-8 20:45
3 u' y3 L5 i S* i! [楼主这宏程序编得有一套,费了不少心思吧
$ b0 z; x2 a `
花了一两天时间,对着西门子编程手册边想边改~~~
0 X9 F0 S# R1 v' I
您需要登录后才可以回帖 登录| 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址(京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号)

GMT+8, 2024-7-31 22:19, Processed in 0.060364 second(s), 22 queries , Gzip On.

Powered byDiscuz!X3.4Licensed

? 2001-2017Comsenz Inc.

快速回复 返回顶部 返回列表