機(jī)械社區(qū)

標(biāo)題: 高速鋼粗皮銑刀磨齒專機(jī)程序（未驗證，僅供參考）編程語法如有錯誤，實屬抱歉 [打印本頁]
作者: wf2017    時間: 2018-1-8 14:22
標(biāo)題: 高速鋼粗皮銑刀磨齒專機(jī)程序（未驗證，僅供參考）編程語法如有錯誤，實屬抱歉
高速鋼粗皮銑刀磨齒專機(jī)程序（未驗證，較簡易，僅提供工藝步驟，及原理供各位大俠參考）
: N4 l& M$ a( ^/ b8 k* l說明：這套磨齒程序為高速鋼粗皮銑刀加工使用，原機(jī)器是20年前的老機(jī)器，3 A) E% V4 n& k" {& I4 w+ r& o
使用法蘭克系統(tǒng)，具備雷尼紹探頭，! f1 ~+ Y) R+ f- u/ h+ A5 V
可測量刀具起始長度位置X向，刀齒位置A軸角度方向（已開槽的高速鋼銑刀半成品毛坯料）
+ S/ ^- }) n; Y8 c7 n' u因此機(jī)床系統(tǒng)老舊，經(jīng)常故障，且維修備件難以尋找，工廠僅此一臺機(jī)器可用，所以決定業(yè)余時間摸清楚加工工藝，再設(shè)計一臺機(jī)器替換它，  I+ m- x" W, L: e* u
使用新代或者西門子4軸數(shù)控系統(tǒng)（X,Y,Z,A），增加左旋刀具的磨齒功能，所以就編寫了如下程序。
+ \. Z2 W: D/ h( ]8 }
L011（測量子程序，左右旋刀具）
L012（一齒磨削子程序，左右旋刀具）
MAIN01（磨削主程序，左右旋刀具）
L013（修整砂輪程序）（R圓弧砂輪修整，兩軸插補(bǔ)，較簡單，未編寫，注意必須機(jī)內(nèi)修整）
后來因老板縮減開支，舊機(jī)器用用修修可勉強(qiáng)支撐，就不愿投資此項目，沒有機(jī)會驗證程序的使用效果。
工程圖截屏舉例以4刃銑刀為例，齒距4mm（實際很少有這種，純粹為方便畫圖）7 ^( H- g. z: s% h& a
本來想G代碼發(fā)文檔貼上了，為避免各位下載要積分，直接貼在帖子里了。各位復(fù)制保存就好。
L011（測量子程序，左右旋刀具）
N0010  MSG（“刀齒長度及A軸角度測量”）
N0020  G90 G94 G00 Y（R110）Z（R111）；測頭中心對準(zhǔn)棒料中心
N0030  MWAS=1 G91 G01 X-（R118） F500；測頭在X方向搜索距離內(nèi)探測棒料
N0040  IF $AC_MEA[0]==0 GOTOF MEASERR；測量失敗，減少探測搜索距離
N0050  R150=$AA_MW[X]；記錄碰撞當(dāng)前X絕對坐標(biāo)值，賦值到R150中
N0051 IF R155=1 GOTOF N0170；測量X，對準(zhǔn)X和Y坐標(biāo)位置
N0060  G91 G01 X2 F500；測頭脫離棒料
N0070  Z（R119/2-0.5）；測頭抬高溝槽內(nèi)部0.5mm處，準(zhǔn)備測齒位置
N0080  X-（2+R154）；測頭進(jìn)入溝槽內(nèi)部1mm處，準(zhǔn)備測齒位置
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；測量失敗，檢查測頭是否進(jìn)入溝槽
N0110  R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對坐標(biāo)值，賦值到R151中
N0120 G91 GO1 A5 F500；測頭脫離溝槽A向5°（右旋刀具）
N0130 Z5；測頭脫離溝槽Z向抬高5mm
N0140 A（R153-5）；刀齒回測頭接觸角度，偏移R153到磨削所需角度，A對準(zhǔn)
N0141 GOTOB N0150；跳過左旋測齒程序
N0142 MWAS=1 G91 G01 A（360/R103）F500；測頭在A方向搜索距離內(nèi)找齒
N0143  R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對坐標(biāo)值，賦值到R151中
N0144 G91 GO1 A-5 F500；測頭脫離溝槽A向-5°（左旋刀具）
N0145 Z5；測頭脫離溝槽Z向抬高5mm
N0145 A（R153+5）；刀齒回測頭接觸角度，偏移R153到磨削所需角度，A對準(zhǔn)
N0150 G90 G00 Y（R112）；刀具中心線運(yùn)行到砂輪正下方，Y對準(zhǔn)
N0160 G91 G01 X（2+R154+R152）；棒料前端運(yùn)行到砂輪下方，X對準(zhǔn)
N0170 G90 G00 X（R150+R152）Y（R112）；棒料運(yùn)行到砂輪下方，X，Y對準(zhǔn)
N0171 G90 G00 Z（R108）；Z軸起始位置，方便上下料，測量及對刀結(jié)束
N0180 M02測量程序結(jié)束
N0190 MEASERR:MSG("測量失�。√结樜丛谟行Ь嚯x內(nèi)觸發(fā)！")
) X9 z, ]5 B1 P( U* k
L012（一齒磨削子程序，左右旋刀具）
N001  MSG（“單個磨齒程序”）
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)刀距離，錯開磨削下一個齒
N051 GOTOB N060；跳過左旋磨齒程序，直接結(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)刀距離，錯開磨削下一個齒
N060  M02；一齒磨削完成，下一齒磨削位置對準(zhǔn)
6 l& v: n% B# k5 R1 j
MAIN01（磨削主程序，左右旋刀具）
N010  G90 G94 G01 X（R106）Y（R107）Z（R108）F600；快進(jìn)到換料位置
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對準(zhǔn)
N015  A（R151+R153）；根據(jù)上次探測賦值，擺正A軸對準(zhǔn)
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）；測頭中心對準(zhǔn)棒料中心，
N0030  MWAS=1 G91 G01 X-（R118） F500；測頭在X方向搜索距離內(nèi)探測棒料
N0040  IF $AC_MEA[0]==0 GOTOF MEASERR；測量失敗，減少探測搜索距離
N0050  R150=$AA_MW[X]；記錄碰撞當(dāng)前X絕對坐標(biāo)值，賦值到R150中
N0051 IF R155=1 GOTOF N0170；測量X，對準(zhǔn)X和Y坐標(biāo)位置
N0060  G91 G01 X2 F500；測頭脫離棒料
N0070  Z（R119/2-0.5）；測頭抬高溝槽內(nèi)部0.5mm處，準(zhǔn)備測齒位置
N0080  X-（2+R154）；測頭進(jìn)入溝槽內(nèi)部1mm處，準(zhǔn)備測齒位置
N0090  MWAS=1 G91 G01 A-（360/R103）F500；測頭在A方向搜索距離內(nèi)找齒
N0100  IF $AC_MEA[0]==0 GOTOF MEASERR；測量失敗，檢查測頭是否進(jìn)入溝槽
N0110  R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對坐標(biāo)值，賦值到R151中
N0120 G91 GO1 A5 F500；測頭脫離溝槽A向5°
N0130 Z5；測頭脫離溝槽Z向抬高5mm
N0140 A（R153-5）；刀齒回測頭接觸角度，偏移R153到磨削所需角度，A對準(zhǔn)
N0150 G90 G00 Y（R112）；刀具中心線運(yùn)行到砂輪正下方，Y對準(zhǔn)
N0160 G91 G01 X（2+R154+R152）；棒料前端運(yùn)行到砂輪下方，X對準(zhǔn)
N0170 G90 G00 X（R150+R152）Y（R112）；棒料運(yùn)行到砂輪下方，X，Y對準(zhǔn)
N0171 G90 G00 Z（R108）；Z軸起始位置，方便上下料，測量及對刀結(jié)束
N0180 M02測量程序結(jié)束
N0190 MEASERR:MSG("測量失��！探針未在有效距離內(nèi)觸發(fā)！")
' k$ r. x& Q% p) ]8 ^: o- D

+ ?7 b% [2 m0 I6 @5 l# O' }' c& E

' ^1 P% f5 M3 `# J/ T* P7 _& s9 H+ I0 ~  z' {5 E
補(bǔ)充內(nèi)容 (2018-1-9 08:00):
5 k% d7 R5 {( I- t7 q! l( t" I加工分布步驟：
$ z- l4 t* f8 j, _1 F& t2 |1 h8 G! a1判斷左旋刀右旋刀
1 t9 Z; Y* B2 U3 n6 z2測量刀具長度位置，測量刀具刀齒位置
6 F9 E' i9 X- R. a1 r3磨削加工波浪齒型
作者: 只有快樂    時間: 2018-1-8 16:47
佩服的五體投地
作者: wf2017    時間: 2018-1-8 18:04
只有快樂 發(fā)表于 2018-1-8 16:47, R4 w! X# {& n: ]3 h
佩服的五體投地
, |0 _$ i/ q9 z
大俠不要太夸張~~~* G- I8 [' K9 k; q! d  d( o
作者: xiaobing86203    時間: 2018-1-8 18:34
樓主如能親自搞定這樣程序也算是厲害了
作者: 狙擊手    時間: 2018-1-8 18:43
好像不是完整的磨削程序，是程序過程表。
+ w# p0 l- D- J$ v9 \1 p確實是有心人。贊一個！
作者: 韓寒11    時間: 2018-1-8 20:45
樓主這宏程序編得有一套，費(fèi)了不少心思吧
作者: wf2017    時間: 2018-1-9 07:53
xiaobing86203 發(fā)表于 2018-1-8 18:349 o/ y. h% r4 \  d+ t# Y
樓主如能親自搞定這樣程序也算是厲害了

2 M( o; E0 b) r2 X1 ^8 _呵呵，以后有機(jī)會再驗證效果& e2 B) \8 h9 {2 P/ X. ~  H. i
作者: wf2017    時間: 2018-1-9 07:55
狙擊手 發(fā)表于 2018-1-8 18:43* ~. X( W0 X/ n* k/ k: p+ u
好像不是完整的磨削程序，是程序過程表。
. f0 O7 i9 ]/ G. [% e確實是有心人。贊一個！

- |+ V5 s# U$ l0 O2 V* ^是的，主要是加工的動作過程，機(jī)器沒有做出來，所以一些進(jìn)給速度，轉(zhuǎn)速等信息沒有完善。
! ^7 w. V) A' J* r$ n+ v8 Y
- q5 o& ?7 Z; ]% O/ c% n0 f) G$ n. F) d2 [" a
作者: wf2017    時間: 2018-1-9 07:56
韓寒11 發(fā)表于 2018-1-8 20:451 A: A7 u# K% V0 N; d/ E# i1 z
樓主這宏程序編得有一套，費(fèi)了不少心思吧
8 V) f% G5 X- w# V7 i. i; [3 x
花了一兩天時間，對著西門子編程手冊邊想邊改~~~, A* O5 M6 s+ G2 [




歡迎光臨 機(jī)械社區(qū) (http://e-learninguniversity.com/) Powered by Discuz! X3.4