高速鋼粗皮銑刀磨齒專機程序(未驗證,較簡易,僅提供工藝步驟,及原理供各位大俠參考)" o: b6 I+ G* |, u
說明:這套磨齒程序為高速鋼粗皮銑刀加工使用,原機器是20年前的老機器,
1 m8 \1 X2 D7 r& p Q2 C使用法蘭克系統,具備雷尼紹探頭,( D. Q5 e: O, {. Q Y
可測量刀具起始長度位置X向,刀齒位置A軸角度方向(已開槽的高速鋼銑刀半成品毛坯料)( b' _5 c0 Z" K2 d" \3 m; S
因此機床系統老舊,經常故障,且維修備件難以尋找,工廠僅此一臺機器可用,所以決定業余時間摸清楚加工工藝,再設計一臺機器替換它,; V) Y6 {) E3 t3 c1 H
使用新代或者西門子4軸數控系統(X,Y,Z,A),增加左旋刀具的磨齒功能,所以就編寫了如下程序。- Y) J/ H9 W0 O( Z! ]2 J& k/ p
L011(測量子程序,左右旋刀具) L012(一齒磨削子程序,左右旋刀具) MAIN01(磨削主程序,左右旋刀具) L013(修整砂輪程序)(R圓弧砂輪修整,兩軸插補,較簡單,未編寫,注意必須機內修整) 后來因老板縮減開支,舊機器用用修修可勉強支撐,就不愿投資此項目,沒有機會驗證程序的使用效果。 工程圖截屏舉例以4刃銑刀為例,齒距4mm(實際很少有這種,純粹為方便畫圖)
# e- ] c: @5 g% h5 z3 z本來想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("測量失敗!探針未在有效距離內觸發!")
3 h7 s- {; f% y4 |$ AL012(一齒磨削子程序,左右旋刀具) 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;一齒磨削完成,下一齒磨削位置對準
) q6 x1 a7 a6 E. e J7 E: J8 FMAIN01(磨削主程序,左右旋刀具) 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<R105/(R104/R103) GOTOB N030;齒數不到,繼續 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("測量失敗!探針未在有效距離內觸發!") 1 R B; M' k: o Y" l
" z: Q, K$ c u8 Y9 a" O+ ^' {
& E5 X6 o) S; p: C; V0 r) ]- X. _7 `6 u. Z8 c8 P
$ g# l4 w- d: x& i2 e5 d. u補充內容 (2018-1-9 08:00):
2 h/ w3 B' N9 u( J8 W5 C9 H' \1 A加工分布步驟:
3 m/ Q& Y$ X6 j1 U3 H$ z. m& Q1判斷左旋刀右旋刀
+ X5 b7 D; w9 H7 N, m& m2測量刀具長度位置,測量刀具刀齒位置
7 D6 p/ y$ S& H. j* G' V3磨削加工波浪齒型 |