Think3的GPL說話 開辟 擠壓模?？拙€割主動(dòng) 化法式 設(shè)計(jì)與運(yùn)用

摘 要：簡(jiǎn)述經(jīng)由過程 Think3的GPL說話 ，使用曲線偏移的功能發(fā)生 鋁型材擠壓模模孔線割刀路及對(duì)應(yīng)G代碼的進(jìn)程 ，并對(duì)模孔進(jìn)行主動(dòng) 相切查抄。

關(guān)頭詞：擠壓模線切割; G代碼; 偏移; 暫停點(diǎn)

作者來自亞洲鋁廠

　　在擠壓模建造 進(jìn)程 中，線切割加工是極度主要 的一個(gè)環(huán)節(jié)。?？纵喞|(zhì)量將直接影響擠出鋁型材的輪廓質(zhì)量。 我司對(duì)該環(huán)節(jié)一貫 極度正視 ，率先引進(jìn)高精度慢走絲對(duì)模孔進(jìn)行加工，極年夜 的提高了模具輪廓質(zhì)量。跟著 公司營業(yè) 的擴(kuò)年夜 及對(duì)制造精度的不懈尋求 ，對(duì)線割編程的要求也愈來愈 高。

　　因?yàn)?現(xiàn)有線割編程軟件參數(shù)設(shè)置繁瑣， 發(fā)生 的NC代碼與機(jī)床機(jī)能 不完全匹配，需再次查抄及更改，分歧 機(jī)床須劃分處置。而在擠壓模線割編程編程中，加工參數(shù)相對(duì)固定，為減輕線割編程員勞動(dòng)強(qiáng)度，下降 新人培訓(xùn)周期，遂提出經(jīng)由過程 CAD軟件Think3的GPL說話 ，使用曲線偏移的功能發(fā)生 擠壓模?？拙€割刀路及對(duì)應(yīng)G代碼的進(jìn)程 ，并對(duì)模孔進(jìn)行主動(dòng) 相切查抄的假想 。

　　具體流程以下 ：

　　1.輸入待割型材選擇集，要包管 糾合首尾挨次相接。若所選肇端 點(diǎn)或標(biāo)的目的不適合 可經(jīng)由過程 肇端 點(diǎn)前移/后移及反相進(jìn)行調(diào)動(dòng)。

2.看待 割鋁型材選擇集進(jìn)行主動(dòng) 查抄，以包管 過渡油滑 。

　　具體方式 為：由法式 對(duì)相鄰兩圖素進(jìn)行查抄：

　　(1)若為直線和圓弧，經(jīng)由過程 求直線兩頭 點(diǎn)與圓弧出發(fā)點(diǎn) 和終點(diǎn)距離獲得 交點(diǎn)，再判決絕 點(diǎn)與圓心所成直線與直線夾角，若非90度則剖斷 直線和圓弧非相切關(guān)系，在交點(diǎn)處按指定圖層及色彩 繪點(diǎn)提示 此處需更正；

　　(2)若為圓弧和圓弧，判定 圓心距離是不是 等于半徑和或差，若不等剖斷 圓弧和圓弧非相切關(guān)系，在交點(diǎn)處按指定圖層及色彩 繪點(diǎn)提示 此處需更正；

　　(3)若為直線和直線，直接在交點(diǎn)處按指定圖層及色彩 繪點(diǎn)提示 編程員查抄。

3.界說 加工參數(shù)，入絲點(diǎn)：

　　主要輸入切割厚度，入絲點(diǎn)，精加工次數(shù)。

4.用偏移功能發(fā)生 加工軌跡線：

　　依加工參數(shù)肯定 偏移距離，使用CAD軟件的偏移功能發(fā)生 偏移線（將偏移線第一刀放到999層，即粗割軌跡線；其余順次 放到998、997...層)，對(duì)輸入待割型材的總長與新發(fā)生 軌跡線總長比對(duì)，軌跡線總終年 夜 于待割型材的總長則將其刪除，調(diào)動(dòng)偏移標(biāo)的目的，從頭發(fā)生 軌跡線。具體GPL法式 代碼以下 ：

　　#procedure SelsOfst(IDS,offsetDist,InOut) !No005將給定圖素偏移指定距離 若相等則掉 敗不發(fā)生 偏移圖素[自ek_confw.prbs]W::->WrTp::

　　*保存原始情況 WrTp::SelsOfst(ek_prese(1),0.2,1) //SelsOfst(ek_prese(1),0.2,1)

　　currCol:=$PG(EP_COL) ekpar EP_COL 60 !EP_COL

　　currLTYPE:=$PG(EP_LTYPE) ekpar EP_LEV 999 !EP_LTYPE

　　currWIDTH:=$PG(EP_WIDTH) ekpar EP_WIDTH 2 !EP_WIDTH

　　currLEV:=$PG(EP_LEV) ekpar EP_LEV 999 !EP_LEV

TmpTPth_IDS

　　TmpTPth_IDS::=0#0

　　ekpar EP_CVOF_DIST 1 !DIST/point

Sids::=IDS !保存待處置糾合

exitflag::=0

m(IDS,"IDS")

Sperim::=WrTp::GetLensBySels(IDS)

lastEnt::=$lastent

m($lastent,"$lastent Prv")

　　WrTp::SelsHIGHZYYSXS(Sids,20,1)

AAG_2021::SelByIds(Sids)

　　ekpar EP_CVOF_DIST 1 !DIST/point

ekpar EP_OFFSET_N offsetDist !0.2/-0.2 offsetDist

ekpar EP_OFF_OPTMC 0 !copy 0/Move 1 -》ekpar EP_OFF_OPTMC 1

　　* ekpar EP_CVOF_NUMOF ek_num_edit

ekpar EP_CVOF_NUMOF 1 !層數(shù)UNDO

ekpar EP_CVOF_TRFL 1 !Extended0/1Fillet是不是 倒圓

　　user::ek_offset_onpln !履行 發(fā)生 偏移線

eos

Halt

if($lastent.eq.lastEnt) ek_w_m('最后確立的[$lastent為空 請(qǐng)查證！'//m(IDS)) goto('e0') ! exit

　　m($lastent,"$lastent Nxt")

OfstIds::=(lastEnt+1):$lastent !初次 發(fā)生 的偏移線

Dperim::=WrTp::GetLensBySels(WrTp::OfstIds)

*

if((WrTp::Dperim.lt.WrTp::Sperim).and.(InOut.eq.1)) then !方針周長小于源+InOut=1 ->exitflag::=1

m('SelsOfst ok in',IDS,offsetDist,InOut,OfstIds)

TmpTPth_IDS::=OfstIds

exitflag::=1

elseif(WrTp::Dperim.eq.WrTp::Sperim) then

OfstIds::=0

m('SelsOfst ==',IDS,offsetDist,InOut,OfstIds)

exitflag::=2

elseif((WrTp::Dperim.gt.WrTp::Sperim).and.(InOut.ne.1)) then !方針周長小于源+InOut1 ->exitflag::=1

m('SelsOfst ok Out',IDS,offsetDist,InOut,OfstIds)

exitflag::=1

else

ekpar EP_OFFSET_N -offsetDist

endif

　　*

if(WrTp::exitflag.eq.1) m("WrTp::exitflag.eq.1") eos goto('e0') ! exit

if(WrTp::exitflag.eq.2) m("WrTp::exitflag.eq.2") eos undo eos goto('e0') ! !方針周長等于源 exit

　　m("SelsOfst -offsetDist",-offsetDist,now)

undo

*從頭設(shè)置選擇集

WrTp::SelsHIGHZYYSXS(Sids,2,1)

AAG_2021::SelByIds(Sids)

lastEnt::=$lastent

user::ek_offset_onpln eos m("SelsOfst -offsetDist Do") !履行 發(fā)生 偏移線

Halt

if($lastent.eq.lastEnt) ek_w_m('最后確立的[$lastent為空 請(qǐng)查證！02'//m(IDS)) goto('e0') ! exit

OfstIds::=(lastEnt+1):$lastent !undo后 發(fā)生 的偏移線

Dperim::=WrTp::GetLensBySels(WrTp::OfstIds)

　　if((WrTp::Dperim.lt.WrTp::Sperim).and.(InOut.eq.1)) then

　　*exit

m('SelsOfst ok2 in',IDS,offsetDist,InOut,OfstIds)

TmpTPth_IDS::=OfstIds

exitflag::=1

elseif((WrTp::Dperim.gt.WrTp::Sperim).and.(InOut.ne.1)) then ! ??應(yīng)無機(jī)遇 履行 到

m('SelsOfst ?ok? Out2 >>ERR!',IDS,offsetDist,InOut,OfstIds)

exitflag::=1

endif

　　if(exitflag.eq.1) goto('e0') ! exit

　　m('SelsOfst err ',now)

　　*

　　end:

　　* exit(values) !

exit

　　e0: m("SelsOfst->e0 ") !TTError("PLSort",WERROR,TTMsg('_TTGEN'\\15,''))

　　*恢回復(fù)復(fù)興 始情況

ekpar EP_COL currCol !EP_COL

ekpar EP_LTYPE currLTYPE !EP_LTYPE

ekpar EP_WIDTH currWIDTH !EP_WIDTH

ekpar EP_LEV currLEV !EP_LEV

goto('end')

　　#end

5.按給定支持 距離較量爭(zhēng)論 ，獲得 支持 位打斷點(diǎn)，并將粗割刀路打斷，對(duì)打斷點(diǎn)進(jìn)行判定 ：

　　a.所需殘剩 長度較量爭(zhēng)論 ：

　　依支持 所需長度，判定 最后的圖素長度是不是 足夠，若不足則將“所需長度-最后圖素長度”得出“所需殘剩 長度；同理順次 對(duì)前一圖素長度作判定 ，直至前一圖素長度年夜 于所需殘剩 長度。

　　b.確立支持 位打斷點(diǎn)：

　　當(dāng)前一圖素長度年夜 于所需殘剩 長度時(shí)，較量爭(zhēng)論 所需殘剩 長度占前一圖素長度的比例數(shù)（以下簡(jiǎn)稱為比例數(shù)），使用在曲線指定比例處畫點(diǎn)功能確立支持 位打斷點(diǎn)（此時(shí)需注重曲線肇端 點(diǎn)是不是 與切割標(biāo)的目的吻合，當(dāng)標(biāo)的目的相反時(shí)所用比例值 =（1-比例數(shù)）。以便使點(diǎn)位與切割標(biāo)的目的符合 。

　　c.在點(diǎn)位處打斷，重排刀路：

接著使用曲線朋分 函數(shù)在方才 確立的點(diǎn)位處打斷曲線，將打斷確立的新圖素依其位置對(duì)刀路圖素選擇集重排，使打斷發(fā)生 的新圖素在刀路準(zhǔn)確 的序列中。

　6.在易斷絲處設(shè)置暫停點(diǎn)

　　即在給定位置點(diǎn)將刀路打斷，并在該位置確立點(diǎn)。(具體方式 同5)

　　7.對(duì)刀路進(jìn)行摹擬 ，以確認(rèn)刀路序列準(zhǔn)確 。

　　8.發(fā)生 Nc法式

　　按刀路進(jìn)行摹擬 時(shí)圖素顯示挨次發(fā)生 加工點(diǎn)位坐標(biāo)序列，再在恰當(dāng) 位置插入需要 的輔助節(jié)制 碼及G代碼。因刀路順次 布列的圖素不是嚴(yán)厲 按首尾相接（可能有頭接尾的情況）， 發(fā)生 加工點(diǎn)位坐標(biāo)序列時(shí)必需 對(duì)此進(jìn)行辨別 ，以包管 坐標(biāo)序列準(zhǔn)確 。

　　經(jīng)由過程 以長進(jìn) 程 ，實(shí)現(xiàn)法式 所見即所得。加工參數(shù)可直接由輸入的模厚主動(dòng) 生成，終究 法式 花式可按照現(xiàn)實(shí) 機(jī)床靈動(dòng)調(diào)劑 ，避免對(duì)分歧 類型機(jī)床需屢次 編程的短處；法式 設(shè)置加倍 便捷.