高速鋼粗皮銑刀磨齒專(zhuān)機(jī)程序（未驗(yàn)證，較簡(jiǎn)易，僅提供工藝步驟，及原理供各位大俠參考）& N* P8 | w3 `! p
說(shuō)明：這套磨齒程序?yàn)楦咚黉摯制ゃ姷都庸な褂茫瓩C(jī)器是20年前的老機(jī)器，# ]) B- r! r; s4 \
使用法蘭克系統(tǒng)，具備雷尼紹探頭，2 R! v) R* u. p4 |3 k2 j
可測(cè)量刀具起始長(zhǎng)度位置X向，刀齒位置A軸角度方向（已開(kāi)槽的高速鋼銑刀半成品毛坯料）2 `) J3 j* c- t! _ u
因此機(jī)床系統(tǒng)老舊，經(jīng)常故障，且維修備件難以尋找，工廠(chǎng)僅此一臺(tái)機(jī)器可用，所以決定業(yè)余時(shí)間摸清楚加工工藝，再設(shè)計(jì)一臺(tái)機(jī)器替換它，
3 w- D1 H1 Q+ F' }使用新代或者西門(mén)子4軸數(shù)控系統(tǒng)（X,Y,Z,A），增加左旋刀具的磨齒功能，所以就編寫(xiě)了如下程序。/ o4 p9 u$ r9 A# g4 d: N* T
L011（測(cè)量子程序，左右旋刀具） L012（一齒磨削子程序，左右旋刀具） MAIN01（磨削主程序，左右旋刀具） L013（修整砂輪程序）（R圓弧砂輪修整，兩軸插補(bǔ)，較簡(jiǎn)單，未編寫(xiě)，注意必須機(jī)內(nèi)修整） 后來(lái)因老板縮減開(kāi)支，舊機(jī)器用用修修可勉強(qiáng)支撐，就不愿投資此項(xiàng)目，沒(méi)有機(jī)會(huì)驗(yàn)證程序的使用效果。 工程圖截屏舉例以4刃銑刀為例，齒距4mm（實(shí)際很少有這種，純粹為方便畫(huà)圖）
( p+ G D6 V; H% D9 E/ o% s, Z本來(lái)想G代碼發(fā)文檔貼上了，為避免各位下載要積分，直接貼在帖子里了。各位復(fù)制保存就好。L011（測(cè)量子程序，左右旋刀具） N0010 MSG（“刀齒長(zhǎng)度及A軸角度測(cè)量”） N0020 G90 G94 G00 Y（R110）Z（R111）；測(cè)頭中心對(duì)準(zhǔn)棒料中心 N0030 MWAS=1 G91 G01 X-（R118） F500；測(cè)頭在X方向搜索距離內(nèi)探測(cè)棒料 N0040 IF $AC_MEA[0]==0 GOTOF MEASERR；測(cè)量失敗，減少探測(cè)搜索距離 N0050 R150=$AA_MW[X]；記錄碰撞當(dāng)前X絕對(duì)坐標(biāo)值，賦值到R150中 N0051 IF R155=1 GOTOF N0170；測(cè)量X，對(duì)準(zhǔn)X和Y坐標(biāo)位置 N0060 G91 G01 X2 F500；測(cè)頭脫離棒料 N0070 Z（R119/2-0.5）；測(cè)頭抬高溝槽內(nèi)部0.5mm處，準(zhǔn)備測(cè)齒位置 N0080 X-（2+R154）；測(cè)頭進(jìn)入溝槽內(nèi)部1mm處，準(zhǔn)備測(cè)齒位置 N0081 IF R159=0 GOTOB N0090；跳轉(zhuǎn)右旋測(cè)齒 N0082 IF R159=1 GOTOB N0142；跳轉(zhuǎn)左旋測(cè)齒 N0090 MWAS=1 G91 G01 A-（360/R103）F500；測(cè)頭在A方向搜索距離內(nèi)找齒 N0100 IF $AC_MEA[0]==0 GOTOF MEASERR；測(cè)量失敗，檢查測(cè)頭是否進(jìn)入溝槽 N0110 R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對(duì)坐標(biāo)值，賦值到R151中 N0120 G91 GO1 A5 F500；測(cè)頭脫離溝槽A向5°（右旋刀具） N0130 Z5；測(cè)頭脫離溝槽Z向抬高5mm N0140 A（R153-5）；刀齒回測(cè)頭接觸角度，偏移R153到磨削所需角度，A對(duì)準(zhǔn) N0141 GOTOB N0150；跳過(guò)左旋測(cè)齒程序 N0142 MWAS=1 G91 G01 A（360/R103）F500；測(cè)頭在A方向搜索距離內(nèi)找齒 N0143 R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對(duì)坐標(biāo)值，賦值到R151中 N0144 G91 GO1 A-5 F500；測(cè)頭脫離溝槽A向-5°（左旋刀具） N0145 Z5；測(cè)頭脫離溝槽Z向抬高5mm N0145 A（R153+5）；刀齒回測(cè)頭接觸角度，偏移R153到磨削所需角度，A對(duì)準(zhǔn) N0150 G90 G00 Y（R112）；刀具中心線(xiàn)運(yùn)行到砂輪正下方，Y對(duì)準(zhǔn) N0160 G91 G01 X（2+R154+R152）；棒料前端運(yùn)行到砂輪下方，X對(duì)準(zhǔn) N0170 G90 G00 X（R150+R152）Y（R112）；棒料運(yùn)行到砂輪下方，X，Y對(duì)準(zhǔn) N0171 G90 G00 Z（R108）；Z軸起始位置，方便上下料，測(cè)量及對(duì)刀結(jié)束 N0180 M02測(cè)量程序結(jié)束 N0190 MEASERR:MSG("測(cè)量失敗！探針未在有效距離內(nèi)觸發(fā)！")
4 b' W6 i0 g' q# Y4 D( a4 vL012（一齒磨削子程序，左右旋刀具） N001 MSG（“單個(gè)磨齒程序”） N002 R156=（360×R104×TanR099）/（3.14×R119×R103）；A螺旋角補(bǔ)償角 N010 G91 G01 Z（-R100）F300;Z軸運(yùn)行到磨削起始位置 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補(bǔ)償下一齒高低 N040 A-（360/R103-R102+R156）F500；A軸負(fù)向分度運(yùn)行到下一齒起始位置 N050 X-（R104/R103）F300；X軸負(fù)向進(jìn)刀距離，錯(cuò)開(kāi)磨削下一個(gè)齒 N051 GOTOB N060；跳過(guò)左旋磨齒程序，直接結(jié)束 N052 Z（-R101） A（R102） F200;左旋刀具磨齒 N053 Z（R101+R100+R158）F500；磨完1齒，抬起Z軸，R158補(bǔ)償下一齒高低 N054 A（360/R103-R102+R156）F500；A軸正向分度運(yùn)行到下一齒起始位置 N055 X-（R104/R103）F300；X軸負(fù)向進(jìn)刀距離，錯(cuò)開(kāi)磨削下一個(gè)齒 N060 M02；一齒磨削完成，下一齒磨削位置對(duì)準(zhǔn)
5 `2 Z2 i' m1 j: ?! qMAIN01（磨削主程序，左右旋刀具） N010 G90 G94 G01 X（R106）Y（R107）Z（R108）F600；快進(jìn)到換料位置 N011 IF R114=0 GOTOF N014；不需要重新測(cè)量，直接磨削 N012 IF R114=1 GOTOF N013；需要重新測(cè)量，才能磨削，重新賦值 N013 L011；調(diào)用測(cè)量程序，找到刀齒X,A位置，擺正對(duì)齊 N014 G90 G00 X（R150+R152）Y（R112）；根據(jù)上次賦值棒料X，Y對(duì)準(zhǔn) N015 A（R151+R153）；根據(jù)上次探測(cè)賦值，擺正A軸對(duì)準(zhǔn) N021 M7 M13；磨頭啟動(dòng)，冷卻啟動(dòng) N022 R109=1；磨齒開(kāi)始計(jì)數(shù) N030 L012；調(diào)用一齒磨削子程序 N040 R109=R109+1；磨齒計(jì)數(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（測(cè)量子程序，左旋刀具） N0010 MSG（“刀齒長(zhǎng)度及A軸角度測(cè)量”） N0020 G90 G94 G00 Y（R110）Z（R111）；測(cè)頭中心對(duì)準(zhǔn)棒料中心， N0030 MWAS=1 G91 G01 X-（R118） F500；測(cè)頭在X方向搜索距離內(nèi)探測(cè)棒料 N0040 IF $AC_MEA[0]==0 GOTOF MEASERR；測(cè)量失敗，減少探測(cè)搜索距離 N0050 R150=$AA_MW[X]；記錄碰撞當(dāng)前X絕對(duì)坐標(biāo)值，賦值到R150中 N0051 IF R155=1 GOTOF N0170；測(cè)量X，對(duì)準(zhǔn)X和Y坐標(biāo)位置 N0060 G91 G01 X2 F500；測(cè)頭脫離棒料 N0070 Z（R119/2-0.5）；測(cè)頭抬高溝槽內(nèi)部0.5mm處，準(zhǔn)備測(cè)齒位置 N0080 X-（2+R154）；測(cè)頭進(jìn)入溝槽內(nèi)部1mm處，準(zhǔn)備測(cè)齒位置 N0090 MWAS=1 G91 G01 A-（360/R103）F500；測(cè)頭在A方向搜索距離內(nèi)找齒 N0100 IF $AC_MEA[0]==0 GOTOF MEASERR；測(cè)量失敗，檢查測(cè)頭是否進(jìn)入溝槽 N0110 R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對(duì)坐標(biāo)值，賦值到R151中 N0120 G91 GO1 A5 F500；測(cè)頭脫離溝槽A向5° N0130 Z5；測(cè)頭脫離溝槽Z向抬高5mm N0140 A（R153-5）；刀齒回測(cè)頭接觸角度，偏移R153到磨削所需角度，A對(duì)準(zhǔn) N0150 G90 G00 Y（R112）；刀具中心線(xiàn)運(yùn)行到砂輪正下方，Y對(duì)準(zhǔn) N0160 G91 G01 X（2+R154+R152）；棒料前端運(yùn)行到砂輪下方，X對(duì)準(zhǔn) N0170 G90 G00 X（R150+R152）Y（R112）；棒料運(yùn)行到砂輪下方，X，Y對(duì)準(zhǔn) N0171 G90 G00 Z（R108）；Z軸起始位置，方便上下料，測(cè)量及對(duì)刀結(jié)束 N0180 M02測(cè)量程序結(jié)束 N0190 MEASERR:MSG("測(cè)量失敗！探針未在有效距離內(nèi)觸發(fā)！")
: d5 j4 B4 U: p; W3 s+ H5 L6 [$ {( Z
' u4 i) I: L# T, z- i" t7 Y8 M9 @ t ]
# f/ S% t5 h. J" |0 ?補(bǔ)充內(nèi)容 (2018-1-9 08:00):
" O% n2 z0 H& F# J6 U! O加工分布步驟：3 N. {: I; B2 n8 X1 m
1判斷左旋刀右旋刀% |3 v( _. k8 k
2測(cè)量刀具長(zhǎng)度位置，測(cè)量刀具刀齒位置- w) n) @# Y7 z* q) j
3磨削加工波浪齒型 | 
發(fā)表于 2018-1-8 14:22:46
QQ好友和群
QQ空間
