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

wf2017

高速钢粗皮铣刀磨齿专机程序（未验证，较简易，仅提供工艺步骤，及原理供各位大侠参考）
- ^+ M$ d- v$ }( V说明：这套磨齿程序为高速钢粗皮铣刀加工使用，原机器是20年前的老机器，
使用法兰克系统，具备雷尼绍探头，
可测量刀具起始长度位置X向，刀齿位置A轴角度方向（已开槽的高速钢铣刀半成品毛坯料）
4 n4 c* p! U8 i7 v9 {( _2 `, l因此机床系统老旧，经常故障，且维修备件难以寻找，工厂仅此一台机器可用，所以决定业余时间摸清楚加工工艺，再设计一台机器替换它，
( q- ]- t6 V. K3 _; Q r+ i使用新代或者西门子4轴数控系统（X,Y,Z,A），增加左旋刀具的磨齿功能，所以就编写了如下程序。
/ @9 w3 |+ \& @) O" c* X. Z' m' X# t

L011（测量子程序，左右旋刀具）

L012（一齿磨削子程序，左右旋刀具）

MAIN01（磨削主程序，左右旋刀具）

L013（修整砂轮程序）（R圆弧砂轮修整，两轴插补，较简单，未编写，注意必须机内修整）

后来因老板缩减开支，旧机器用用修修可勉强支撑，就不愿投资此项目，没有机会验证程序的使用效果。

工程图截屏举例以4刃铣刀为例，齿距4mm（实际很少有这种，纯粹为方便画图）
本来想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("测量失败！探针未在有效距离内触发！")

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；一齿磨削完成，下一齿磨削位置对准

) J% J) j- ?# X; {. G- ^/ e1 g

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("测量失败！探针未在有效距离内触发！")

! Q a+ ~3 o3 V, Q8 C& w


" }+ s( `3 ?; h2 n; L
0 n% M) s, n/ L( \6 q9 J% s$ G& ]补充内容 (2018-1-9 08:00):
- S! w! e8 R/ }2 d加工分布步骤：
% {% T. Q0 u; b) V1判断左旋刀右旋刀
" B$ }3 T9 Q% z/ F- V# X' Z( a* z2测量刀具长度位置，测量刀具刀齿位置
3磨削加工波浪齿型

只有快乐

佩服的五体投地

wf2017

只有快乐 发表于 2018-1-8 16:47
* e7 ?# ?, `; q5 t x6 C$ Z, Y+ e佩服的五体投地

/ n: u1 F9 U# I) a大侠不要太夸张~~~

xiaobing86203

楼主如能亲自搞定这样程序也算是厉害了

狙击手

好像不是完整的磨削程序，是程序过程表。
6 X9 I8 q9 J; S/ M5 d( r确实是有心人。赞一个！

韩寒11

楼主这宏程序编得有一套，费了不少心思吧

wf2017

xiaobing86203 发表于 2018-1-8 18:34
楼主如能亲自搞定这样程序也算是厉害了

5 l4 \2 f& T4 T1 }3 X' A' p呵呵，以后有机会再验证效果
8 A) l# v4 m) z2 h6 y4 m; i9 n# t

wf2017

狙击手 发表于 2018-1-8 18:43
' B. j, u7 D( F& @8 _好像不是完整的磨削程序，是程序过程表。
确实是有心人。赞一个！

是的，主要是加工的动作过程，机器没有做出来，所以一些进给速度，转速等信息没有完善。
- i2 n9 s8 H- b) @
; s9 J, e! J1 K3 \
$ i- ^0 D4 `: H6 N) X x

wf2017

韩寒11 发表于 2018-1-8 20:45
3 c2 V# Z0 |. r$ `- Y$ h4 N5 k楼主这宏程序编得有一套，费了不少心思吧

; E2 A/ k! k4 `/ L花了一两天时间，对着西门子编程手册边想边改~~~