高速鋼粗皮銑刀磨齒專機程序（未驗證,，僅供參考）編程語法如有錯誤,，實屬抱歉

wf2017

高速鋼粗皮銑刀磨齒專機程序（未驗證,，較簡易,，僅提供工藝步驟，及原理供各位大俠參考）
說明：這套磨齒程序為高速鋼粗皮銑刀加工使用,，原機器是20年前的老機器,，
使用法蘭克系統(tǒng)，具備雷尼紹探頭,，
, c5 P- V: B2 m/ K可測量刀具起始長度位置X向,，刀齒位置A軸角度方向（已開槽的高速鋼銑刀半成品毛坯料）
因此機床系統(tǒng)老舊，經(jīng)常故障,，且維修備件難以尋找,，工廠僅此一臺機器可用，所以決定業(yè)余時間摸清楚加工工藝,，再設(shè)計一臺機器替換它,，
  W% Z7 C! W1 H) P3 N  W使用新代或者西門子4軸數(shù)控系統(tǒng)（X,Y,Z,A），增加左旋刀具的磨齒功能,，所以就編寫了如下程序,。

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

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

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

L013（修整砂輪程序）（R圓弧砂輪修整，兩軸插補,，較簡單,，未編寫,，注意必須機內(nèi)修整）

后來因老板縮減開支，舊機器用用修修可勉強支撐,，就不愿投資此項目,，沒有機會驗證程序的使用效果。

工程圖截屏舉例以4刃銑刀為例,，齒距4mm（實際很少有這種,，純粹為方便畫圖）
本來想G代碼發(fā)文檔貼上了，為避免各位下載要積分,，直接貼在帖子里了,。各位復制保存就好。

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

N0010  MSG（“刀齒長度及A軸角度測量”）

N0020  G90 G94 G00 Y（R110）Z（R111）,；測頭中心對準棒料中心

N0030  MWAS=1 G91 G01 X-（R118） F500；測頭在X方向搜索距離內(nèi)探測棒料

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）；測頭抬高溝槽內(nèi)部0.5mm處,，準備測齒位置

N0080  X-（2+R154）,；測頭進入溝槽內(nèi)部1mm處，準備測齒位置

N0081  IF R159=0 GOTOB N0090,；跳轉(zhuǎn)右旋測齒

N0082  IF R159=1 GOTOB N0142,；跳轉(zhuǎn)左旋測齒

N0090  MWAS=1 G91 G01 A-（360/R103）F500；測頭在A方向搜索距離內(nèi)找齒

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方向搜索距離內(nèi)找齒

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軸起始位置,，方便上下料，測量及對刀結(jié)束

N0180 M02測量程序結(jié)束

N0190 MEASERR:MSG("測量失�,�,！探針未在有效距離內(nèi)觸發(fā)！")

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；跳轉(zhuǎn)右旋磨齒

N012 IF R159=1 GOTOB N0052,；跳轉(zhuǎn)左旋磨齒

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,；跳過左旋磨齒程序，直接結(jié)束

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,；一齒磨削完成,，下一齒磨削位置對準

4 {. r; o: R% F9 x

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；調(diào)用測量程序,，找到刀齒X,A位置,，擺正對齊

N014  G90 G00 X（R150+R152）Y（R112）；根據(jù)上次賦值棒料X,，Y對準

N015  A（R151+R153）,；根據(jù)上次探測賦值，擺正A軸對準

N021  M7 M13,；磨頭啟動,，冷卻啟動

N022  R109=1；磨齒開始計數(shù)

N030  L012,；調(diào)用一齒磨削子程序

N040  R109=R109+1,；磨齒計數(shù)加一，

N041  MSG（“已磨削齒數(shù)R109”）

N050  IF R109<R105/（R104/R103） GOTOB N030,；齒數(shù)不到,，繼續(xù)

N051  M15 M9；磨頭停止,，冷卻停止

N060  G90 G01 G00 Z（R108）F600；磨削完成,，先退Z軸

N070  Y（R107）F600,；磨削完成，退Y軸

N080  X（R106）F600,；磨削完成,，退X軸

N090  M2；程序結(jié)束

L012（測量子程序,，左旋刀具）

N0010  MSG（“刀齒長度及A軸角度測量”）

N0020  G90 G94 G00 Y（R110）Z（R111）,；測頭中心對準棒料中心，

N0030  MWAS=1 G91 G01 X-（R118） F500,；測頭在X方向搜索距離內(nèi)探測棒料

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）,；測頭抬高溝槽內(nèi)部0.5mm處，準備測齒位置

N0080  X-（2+R154）,；測頭進入溝槽內(nèi)部1mm處,，準備測齒位置

N0090  MWAS=1 G91 G01 A-（360/R103）F500；測頭在A方向搜索距離內(nèi)找齒

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軸起始位置，方便上下料,，測量及對刀結(jié)束

N0180 M02測量程序結(jié)束

N0190 MEASERR:MSG("測量失�,。√结樜丛谟行Ь嚯x內(nèi)觸發(fā),！")

補充內(nèi)容 (2018-1-9 08:00):
加工分布步驟：
1判斷左旋刀右旋刀
2測量刀具長度位置,，測量刀具刀齒位置
% T* |! y1 h3 F0 I) ~7 o3磨削加工波浪齒型

只有快樂

佩服的五體投地

wf2017

只有快樂 發(fā)表于 2018-1-8 16:47
佩服的五體投地

$ x( Z' y! O; j1 ~! j) [大俠不要太夸張~~~
# T3 B3 a* x# k( v$ w

xiaobing86203

樓主如能親自搞定這樣程序也算是厲害了

狙擊手

好像不是完整的磨削程序，是程序過程表,。
確實是有心人,。贊一個！

韓寒11

樓主這宏程序編得有一套,，費了不少心思吧

wf2017

xiaobing86203 發(fā)表于 2018-1-8 18:34
樓主如能親自搞定這樣程序也算是厲害了

9 z- G6 Z; ]0 G1 [1 q( V7 x8 l# h呵呵,，以后有機會再驗證效果

wf2017

狙擊手 發(fā)表于 2018-1-8 18:43
8 W% ~, c3 l$ F+ U好像不是完整的磨削程序,，是程序過程表。
+ h' d! `; [. L% R' C確實是有心人,。贊一個,！

是的，主要是加工的動作過程,，機器沒有做出來,，所以一些進給速度，轉(zhuǎn)速等信息沒有完善,。

wf2017

韓寒11 發(fā)表于 2018-1-8 20:45
樓主這宏程序編得有一套,，費了不少心思吧

花了一兩天時間，對著西門子編程手冊邊想邊改~~~