高速鋼粗皮銑刀磨齒專機程序（未驗證，較簡易，僅提供工藝步驟，及原理供各位大俠參考）: S4 D. s! `/ G/ u* H8 [9 N# q
說明：這套磨齒程序為高速鋼粗皮銑刀加工使用，原機器是20年前的老機器，& B3 V$ y7 Z1 S- @
使用法蘭克系統，具備雷尼紹探頭，
7 [8 L8 \% ?' s% [! F; O4 P$ }" r/ t8 s- B可測量刀具起始長度位置X向，刀齒位置A軸角度方向（已開槽的高速鋼銑刀半成品毛坯料）# o1 Z* V& z, I N5 I4 L! W% q
因此機床系統老舊，經常故障，且維修備件難以尋找，工廠僅此一臺機器可用，所以決定業余時間摸清楚加工工藝，再設計一臺機器替換它，7 y X( }6 [9 S* y$ d
使用新代或者西門子4軸數控系統（X,Y,Z,A），增加左旋刀具的磨齒功能，所以就編寫了如下程序。
2 U# ?! H! i; k1 c; l! K* BL011（測量子程序，左右旋刀具） L012（一齒磨削子程序，左右旋刀具） MAIN01（磨削主程序，左右旋刀具） L013（修整砂輪程序）（R圓弧砂輪修整，兩軸插補，較簡單，未編寫，注意必須機內修整） 后來因老板縮減開支，舊機器用用修修可勉強支撐，就不愿投資此項目，沒有機會驗證程序的使用效果。 工程圖截屏舉例以4刃銑刀為例，齒距4mm（實際很少有這種，純粹為方便畫圖）' H2 t# O9 w( Y; l1 R0 j' q- Y
本來想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("測量失敗！探針未在有效距離內觸發！")
v' f) O# i4 c8 _- b, l! d( u( [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；一齒磨削完成，下一齒磨削位置對準 4 S% g( k$ I# h% u/ y: {
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<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("測量失敗！探針未在有效距離內觸發！")
% P6 @' o" H# r+ N8 g/ D% x( G! N8 O
8 R8 D" Z5 Z2 B3 U1 I1 R
( v7 U1 a( g5 [: W" c: W+ {6 l! A/ V% d- x) R7 c/ [9 P
補充內容 (2018-1-9 08:00):0 i' Y; @) P" @, `2 m
加工分布步驟：( a3 N2 H* b- l d0 s0 F
1判斷左旋刀右旋刀
: K% Y/ j& L0 [/ V5 F. s8 v8 r2測量刀具長度位置，測量刀具刀齒位置 @, b) J z; f( c: p5 C
3磨削加工波浪齒型 | 
發表于 2018-1-8 14:22:46
QQ好友和群
QQ空間
