一.版本更新內容: ┌─────┬────────────┬──────────────────┐ │2009/09/28│版 本: WireCAM 2.40D1 │ 更 新 內 容 請 參 考 下 方.... │ ├─────┴────────────┴──────────────────┤ │1.使用 ICAD 2009 版本,功能表需更新 \LIFEWC\ICAD\2009 資料夾內. │ │ │ │2.修內外R角程式僅在線接線處修R,如果已經有R程式不會去修R(以前會已經修改). │ │ │ │3.新增參數(setq wc_plate_plus "D") ;; "D"程式基準面在下("U"程式基準面在上)│ │ 如沒定義內定程式基準面在上,此設定用在割斜度. │ │ │ │ │ ├─────────────────────────────────────┤ │各位請多指教,對本軟體有任何建議,請告訴我: lifecad2005@hotmail.com 劉先生│ │**** 使用 WINDOWS XP SP2 請用 \LIFEWC\2002\HDD32.EXE 驅動 KEYPRO 程式 ****│ │出現 overtime 時執行\LIFEWC\EXE\OVERTIME.EXE 輸入密碼,出現藍色畫面就可使用│ ├─────────────────────────────────────┤ │acad.vlx 病毒 如何徹底清除: │ │1.先將 autocad help\logo.gif 先隔離. 再建一個 logo.gif 文件檔. │ │2.使用 killqq 將 acad.vlx 刪除. │ │3.再建一個 logo.gif 文件檔. │ ├─────────────────────────────────────┤ │ ***** ICAD 技術討論 ***** │ ├─────────────────────────────────────┤ │ 1. 如何看 icad 版本及更新日期? │ │ 在下拉功能表[幫助]-->[關於icad] 選擇後第一行[會顯示系統版本及日期]. │ │ │ │ 2. 座標標尺寸不想標示出負號如何作? │ │ 在指令區輸入 xdimsord 設定為 off 就不會標出負號。 │ │ │ │ 3. ACAD.PGP及 ACAD.LIN 在 ICAD如何使用? │ │ 改成ICAD.PGP及ICAD.LIN放在浩辰ICAD資料夾，再進入就可以。 │ │ │ │ 4. 如何將自己使用LISP加入浩辰ICAD？ │ │ 在 ICAD 資料夾建立一個 ICAD.LSP 將需要的程式寫到此程式內；DLL 文件將需│ │ 載入程式放在 ICAD.SDS 內。 │ │ │ │ 5. 文字的物件能炸開該如何設定？ │ │ 在指令區輸入EXPLODETEXT。 │ │ │ │ 6. 橢圓的物件能炸開該如何設定？ │ │ 在指令區輸入PELLIPSE設定 ON 時。 │ │ │ │ 7. 不產生 bak 備份檔如何設定？ │ │ 在指令區輸入 makebak 設定為 OFF 時。 │ │ │ │ 8. 複製到剪帖板到另一個圖帖上,希望為一體或分開如何設定？ │ │ 在指令區輸入 ctrl+v (帖上為暴破); ctrl+shift+v (帖上為一體)。 │ │ │ │ 9. 如何自定鍵盤快速鍵？ │ │ 下拉功能表『工具』下方倒數第2行『自定義』鍵盤;如需定義簡化指令在"別名"│ │ ，設好『鍵盤』或『快速鍵』你可利用導出方式，將他儲存，其他電腦要可使用│ │ 『導入』。 │ │ │ │ 10.icad 如何更新到最新版？ │ │ 繁體網站 http://www.icad.com.tw 簡體網站 http://www.icad.tw 下載後執│ │ 先 icad 安裝程式(如果已經安裝先移除在安裝). │ │ │ │ 15.WireCAM 在 icad 繁體版上如何加載？ │ │ 將\lifewc\icad\*.dll 及 \lifewc\icad\dclc\lifewc.mnu lifewc.mnl共 5 個│ │ 檔案 copy icad 資料夾下;進入 icad 後輸入 config 在[圖形文件搜尋路徑]設│ │ 定下列 4 個路徑(如果WireCAM在 D 磁碟,就要改 D:) │ │ │ │ c:\lifewc\icad\dclc │ │ c:\lifewc\user │ │ c:\lifewc\dclc │ │ c:\lifewc │ │ │ │ 16.WireCAM 在 icad 簡體版上如何加載？ │ │ 將\lifewc\icad\*.dll 及 \lifewc\icad\dclb\lifewc.mnu lifewc.mnl共 5 個│ │ 檔案 copy icad 資料夾下;進入 icad 後輸入 config 在[圖形文件搜尋路徑]設│ │ 定下列 4 個路徑(如果WireCAM在 D 磁碟,就要改 D:) │ │ │ │ c:\lifewc\icad\dclb │ │ c:\lifewc\dclb │ │ c:\lifewc\user │ │ c:\lifewc │ │ │ │ 17.如何刪除 AutoCAD 註冊表？ │ │ 在"執行"內輸入 regedit 看到 AutoCAD 相關文字刪除. │ │ │ │ 18.如何得到ICAD產品號？ │ │ 在指令下輸入 (GETVAR "_pkser") 就會出現. │ │ │ │ 19.在ICAD內的WINDOWS字型如何變細？ │ │ 在指令下輸入 gditext 輸入為 1 就會細. │ │ │ │ 20.如何在ICAD剪下貼在WORD多餘的邊框少一點? │ │ 在ICAD下盡量將圖放到最大(充滿). │ ├─────────────────────────────────────┤ │ ***** quickc.lsp 可加入變數 ***** │ ├─────────────────────────────────────┤ │ (setq del_inhole "N") ;; 作路徑不刪除起割孔. │ │ (setq old_wcnc "Y") ;; 使用舊版的轉程式. │ ├─────────────────────────────────────┤ │ (setq start_g92 "Y") ;; 第一孔需有 "G92" 其餘不需要. │ │ (setq g901_g92up "Y") ;; 設定 G90/G91 在 G92 前單獨一行產生. │ │ (setq next_ag90 "Y") ;; 移座標跳下孔前加 G90 │ │ (setq fix_ag92 "Y") ;; 單孔多斜度G92後加I J 值(或每刀有G92). │ │ (setq fix_g90g91 "N") ;; "N"修刀 G90/G91不顯示. │ │ (setq cut1_nowork "Y") ;; 當割二刀以上的內孔第一刀不割. │ ├─────────────────────────────────────┤ │ (setq cut_zaxis_up "G01Z40.") ;;割完Z軸上升拿費料. │ │ (setq fix_zaxis_down "G01Z5.0") ;;修刀Z軸下降高度. │ │ (setq 3df_zaxis_down "G01Z0.0") ;;上下異形修刀及跳下孔Z軸下降高度. │ │ (setq move_zaxis_up "G01Z80.") ;;跳下一孔Z軸上昇高度. │ │ (setq move_zaxis_down "G01Z0.0") ;;跳下一孔後Z軸下降高度. │ │ (setq move_zaxis_stop "M01") ;;跳下一孔後Z軸暫停. │ ├─────────────────────────────────────┤ │ (setq sodick_aq "Y") ;; 設定使用Sodick AQ 系列的機器. │ │ (setq sodtop_data "N") ;; Sodick 開頭不加入[加工條件]. │ │ (setq ah999_syn "Y") ;; 設定Sodick AH999 線徑補正功能. │ │ (setq g745_sod "Y") ;; Sodick上下異形頭尾自動產生G74及G75指令. │ │ (setq g11_sod "Y") ;; 設定Sodick自動產生 "G11" 指令. │ │ (setq t94_sod "Y") ;; 設定Sodick自動產生 "T94" 指令. │ │ (setq g54_sod "Y") ;; 設定Sodick自動產生 "G54" 指令. │ │ (setq g29_sod "Y") ;; 設定Sodick自動產生 "G29" 指令. │ │ (setq g154_sod "Y") ;; 設定Sodick自動產生 "G154" 指令. │ │ (setq g09_sod "Y") ;; 設定Sodick自動產生 "G09" 指令. │ │ (setq t84t85_g92 "U") ;; 設定Sodick 設定 T84/T85 在 G92 前. │ │ (setq g149g249_yn "N") ;; 設定Sodick 上下異形沒有 G149G249 指令. │ │ (setq cut_t84t85 "T85") ;; 外形割斷處使用"T85"(弱水) │ │ (setq top_t94g54g29 "Y") ;; T94/G54/G29/G09是否開頭加入其他孔不加. │ │ (setq uv_g901_2m ":") ;; 上下異形二點方式,上程式與下程式間隔號. │ │ (setq start_h000 "H000") ;; 補正指令後需加入電氣條件(內定"H000"). │ │ (setq g40_h000 "H000") ;; 補正結束補正值(內定"H000"). │ ├─────────────────────────────────────┤ │ (setq g40_u0v0 "N") ;; 上下異形 G40 後不需加U0.V0. │ │ (setq eg_g412down "Y") ;; 第一刀電氣條件與補正,在補正行下方單獨一行. │ │ (setq cseg_3051_edown "Y") ;; 補正前同行,第一刀電氣在補正行下方單獨一行. │ │ (setq angle_hdata "Y") ;; 設定角度與補正在同一行(當 angle_only="Y"). │ │ (setq angle_edataup "Y") ;; 斜度放在後割,電氣條件依前面來割. │ │ (setq wc_plate_plus "D") ;; "D"程式基準面在下("U"程式基準面在上) │ │ (setq hdata_epark "Y") ;; 補正在前電氣在後. │ │ (setq first_hdata "H") ;; 補正代號第一個英文字. │ ├─────────────────────────────────────┤ │ (setq m38_m39code "Y") ;; 使用慶鴻 需轉角減速. │ │ (setq m37_m38code "Y") ;; 使用Fanuc需轉角減速. │ │ (setq m15_code "Y") ;; 割直: M15P0 割斜: M15P1 上下異形: M15P2 │ ├─────────────────────────────────────┤ │ (setq setm_ncm "Y") ;; 設定機器直接變轉程式機器. │ │ (setq fanuc_yn "0") ;; 使用Fanuc控制器 ["0" NO."1" YES]. │ │ (setq jomedm "Y") ;; 在FANUC系統下使用喬懋線割機. │ │ (setq js_edm "Y") ;; 在FANUC系統下使用建陞線割機. │ │ (setq jc_edm "Y") ;; 在FANUC系統下使用建晟線割機. │ │ (setq mac_edm "Y") ;; 在FANUC系統下使用美溪線割機. │ │ (setq makino_edm "Y") ;; 在FANUC系統下使用牧野線割機. │ │ (setq markastr ";") ;; 在註解文字前加 ";" 符號. │ │ (setq g40_g50t0 "G50T0") ;; 非斜度孔補正結束加指令. │ ├─────────────────────────────────────┤ │ (setq charmill_g11no "Y");; CHARMIL線割機,使用 G11 自動加編號. │ │ (setq charmill_g11nof "Y");; CHARMIL線割機,使用 G11 編號依加工刀數. │ │ (setq charmill_g11noio "Y");; CHARMIL線割機,使用 G11 編號依內外孔. │ │ (setq charmill_g11wire "Y");; CHARMIL線割機,使用 G11 加入銅線直徑資料. │ │ (setq charmill_g11top "Y");; CHARMIL線割機,使用 G11 第一孔有其他孔不需要│ │ (setq charmill_g11g92d "Y");; CHARMIL線割機,使用 G11 第一孔加在G92下一行.│ │ (setq charmill_g11m60d "Y");; CHARMIL線割機,使用 G11 第一孔加在M60下一行.│ │ (setq charmill_g10p16 "Y");; CHARMIL線割機,使用 G10P16 定義加工條件. │ │ (setq g10p16_agap "Y");; 使用 G10P16 後面 R 會將間隙加入. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ (setq fix_ext_a "D") ;; 模板割修分開二程式,修刀主檔名後加代號. │ │ (setq ext_file2 ".CNC") ;; 模板割修分開二程式,修刀延申檔名. │ │ (setq fix_oldm "1") ;; "0" 修刀不依原設定. "1" 依原定義. │ │ │ │ (setq run_2nc "Y") ;; 同時產生二條 NC 程式. │ │ (setq run_2nc_2a "S") ;; 第二條NC檔名後加字串,第一支0.nc 第二支0S.NC│ │ (setq run_2nc_2m "3") ;; 第二條NC程式使用機器. │ │ (setq run_2nc_ext "3") ;; 第二條NC程式延伸檔名. │ │ (setq sim_1nc "Y") ;; 第一次模擬以第一條程式模擬. │ │ (setq sim_see_nc "Y") ;; 模擬後馬上看 NC 程式 │ │ │ │ "1" 三菱. "2" 西部. "3" SODICK. "4" CHARMILL. "5" FANUC. "6" 慶鴻. │ │ "7" 徠通. "8" SPM. "9" 蘇三光. │ ├─────────────────────────────────────┤ │ (setq dtaper_axy "Y") ;; 局部斜度與座標在一行(Fanuc/慶鴻/西部使用). │ │ (setq dtaper_axyend "Y") ;; 局部斜度與座標在一行,斜度值會在座標後方. │ │ (setq angle_only "Y") ;; 割全周相同角度,角度要單獨一行(不會插角). │ │ (setq angle_g412_up "Y") ;; 割全周相同角度,角度在G41/G42上一行. │ │ (setq dtaper_off 0.5) ;; 局部斜度[角度線]固定偏移量. │ │ (setq angle_clean "Y") ;; 有角度也可以清角/清線頭. │ │ (setq angle_ag901b "Y") ;; 角度加在 G90/G91 後方. │ │ (setq allang_ocut "N") ;; 割全周角度不過切. │ │ (setq big_tapr305 2.0) ;; 大於此變數無屑加工每刀會回起點. │ │ (setq g51_g52 "G52") ;; 使用G51/G52割斜度強制使用 "G52" │ │ (setq ang0_ag512 "Y") ;; 角度為0.0 需加 G51 或 G52 │ │ (setq g88_g412_down "Y") ;; G88在G41/G42下一行. │ │ (setq allarc_fix "N") ;; 內外R配遇有弧程式不會修改弧半徑. │ │ (setq fixcir_rotate "Y") ;; 修圓自動旋轉修刀. │ │ (setq punch_ir_edge "Y") ;; 外形內角小於(內R小於多少會提示)清成直角. │ │ (setq punch_cut_out "Y") ;; 外形割斷前向外割一段(防切入). │ │ (setq punch_boss_arc "N") ;; 外型切凸不要弧進弧出. │ ├─────────────────────────────────────┤ │ (setq life_user "") ;; 客戶代號 │ │ (setq base_icon "D") ;; 基準點符號("D" 甜甜圈. "X" 打 X 形狀.) │ │ (setq auto_chk00 "Y") ;; 自動將0,0點設為檢查孔. │ │ (setq chk_hcode "G01") ;; 檢查孔移位指令. │ │ (setq chkho_m00 "Y") ;; 檢查孔結束需加暫停指令. │ │ (setq chkho_m00code "") ;; 檢查孔結束暫停指令. │ │ (setq z1z5_appnc "Y") ;; 斜度及上下異形產生Z1及Z5(不含Sodick/蘇三光)│ │ (setq sub_wcfile "N") ;; 不使用主副程式功能. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ (setq file_add1 "N") ;; 檔案自動加1 ["Y"需要. "N"不需]. │ │ (setq next_here "U") ;; 移下一孔座標:["U"下一孔號前. "D"下一孔號後]│ │ (setq ano_306 "0") ;; 加入序號:"0"NO. "1"單孔加(4). "2"單孔加(1).│ │ ;; "3"N0001 "4"N00001 "5"加引號. "6"後加分號. │ │ (setq ano_s4cno "1") ;; 一起切斷割斷處孔號為 N0002 變成 N1002 │ │ (setq ano_s4fno "2") ;; 修刀孔號為 N0002 變成 N2002 (以此類推) │ │ (setq ano_s4mno "3") ;; 移下孔加在孔號前 N0002 變成 N3002 │ │ (setq ano_move_up "Y") ;; 孔號加在移位前. │ │ (setq fix_addno "Y") ;; 割修同時,修刀需加孔號. │ │ (setq app_cutno "Y") ;; 每一刀都顯示孔號及切割次數. │ │ (setq ano_g92 "Y") ;; 孔號與G92在同一行. │ │ │ │ (setq new_sim# "0") ;; "0"舊版模擬. "1"新版模擬. │ │ (setq nc_simu# "A") ;; 程式會問要模擬嗎?不是"A"直接模擬. │ │ (setq del_simlay "Y") ;; 模擬後自動刪除路徑. │ │ (setq list6_apcs "Y") ;; 第六種註解可加數量. │ │ (setq list_holeno "N") ;; 轉程式不列孔號. │ ├─────────────────────────────────────┤ │ (setq top_aorder "Y") ;; 將 "O" 與檔名寫在程式最前方. │ │ (setq top_afile "Y") ;; 檔名/時間寫在程式前面. │ │ (setq gape_appnc "Y") ;; 線割間隙說明寫在程式裡. │ │ (setq end_stop "Y") ;; 程式結束不需暫停(自動穿線有效). │ │ (setq end_listlen "N") ;; 程式結束不需列出線長. │ │ (setq all_listlen "Y") ;; 每個孔都要列出累加線長. │ │ (setq wpath_dwg "Y") ;; 自動將[程式路徑]圖檔名稱資料夾相同. │ │ (setq wfile_dwg "Y") ;; 自動將[程式名稱]設與圖檔名稱相同. │ │ (setq fix_over "N") ;; 轉程式修刀不會過切. │ │ (setq last_over "Y") ;; 內孔最後一刀才過切. │ │ (setq out_keep 0.3) ;; 外形離邊距離為線或弧長的比例. │ │ (setq spop_ang "S") ;; 定義條件在設定計算返回秒為角度. │ │ (setq list_addgape "Y") ;; 間隙加在程式上,列出加工說明(直徑)也加入間隙│ │ (setq g412_ag0 "1") ;; 當使用補正清角後加補正值. │ │ (setq fixi_g04stop "Y") ;; 內孔修刀內角需暫停清角. │ │ (setq udbox_ayn "N") ;; 上下異形不顯示角度. │ ├─────────────────────────────────────┤ │ (setq 2point_yn "Y") ;; 在入線點產生座標及可變化電氣條件修線頭. │ │ (setq g412_a2p "Y") ;; 在入線長度點加補正值及角度. │ │ (setq start_g00 "D40") ;; 設定起始的補正值(需配合 g412_a2p 參數). │ │ (setq out_c2step2 "Y") ;; 外形脫離後第二刀分二段進刀(較不易斷線). │ │ (setq cut2i_stop "Y") ;; 割修同時第二刀暫停數秒變化(強變弱)電氣條件.│ │ (setq cut3i_stop "Y") ;; 割修同時第三刀暫停數秒變化電氣條件. │ │ (setq cut4i_stop "Y") ;; 割修同時第四刀暫停數秒變化電氣條件. │ │ (setq cut5i_stop "Y") ;; 割修同時第五刀暫停數秒變化電氣條件. │ │ (setq cut5i_stop "Y") ;; 割修同時第五刀暫停數秒變化電氣條件. │ │ (setq ost_306 "0") ;; 外形修刀回起割點:"0"NO. "1"YES. │ │ (setq out_g41_up "") ;; 外形G41上一行加入指令. │ │ (setq out_g42_up "") ;; 外形G42上一行加入指令. │ │ │ │ (setq em_305 "E50") ;; 助走電氣條件,助走線有二個電氣(開始+助走). │ ├─────────────────────────────────────┤ │ (setq ask_path "Y") ;; 確認路徑方向性. │ │ (setq ask_texth "Y") ;; 第一次定義問字高. │ │ (setq plate_tyn "Y") ;; 轉程式會每次問板厚. │ │ (setq text_layer "C") ;; 寫入註解文字為當前層. │ │ (setq nc_simu# "A") ;; 程式會問要模擬嗎??不是"A"直接模擬. │ │ (setq cut1_arcio "Y") ;; 割內孔第一刀需弧進弧出. │ │ (setq clean_lair 0.02) ;; 清內角R(線接弧或弧接弧的內角). │ │ (setq clean_laor 0.30) ;; 清外角R(線接弧或弧接弧的外角). │ │ (setq clean_liarc "Y") ;; 程式自動修內角R或外角R. │ ├─────────────────────────────────────┤ │ ******** 定 義 條 件 ********* │ ├─────────────────────────────────────┤ │ (setq displaymode "") ;; 沖模版的定義加工條件. │ │ (setq displaymode "S") ;; 一般版的定義加工條件. │ │ (setq displaymode "SS") ;; 簡易版的定義加工條件. │ │ (setq displaymode "SW") ;; 清角版的定義加工條件. │ │ (setq display_new "Y") ;; [清線頭/割油孔/弧進] 與割修方式對掉. │ │ (setq setmat_nc "Y") ;; 自動將定義設定材質及厚度給轉程式使用. │ │ (setq wir_305 "0") ;; 切割方向:[ "0"手穿線. "1"自動穿線]. │ │ (setq dir_138 "0") ;; 切割方向:[ "0"順時針. "1"逆時針]. │ │ (setq dir_305 "0") ;; 修刀方向:[ "0"順修. "1"逆修]. │ │ (setq aro_305 "0") ;; 出現箭頭:[ "0"不出現. "1"出現]. │ │ (setq per_305 "0") ;; 垂直工件:[ "0"不. "1"是 ]. │ │ (setq mid1_set "Y") ;; 定義為單選及中點模式,只要輸入中間點作路徑. │ │ (setq oudir_305 "1") ;; 外形方向點選決定(單選時有效). │ │ (setq cut_cirdia "A") ;; 任何直徑圓可加工反之以無屑設定. │ │ (setq off_wcname 6) ;; 將內孔入塊前6個設定反白不能修改. │ │ (setq arrow_nno "Y") ;; 插入加工方向不要出現加工次數. │ │ (setq eg_life306b "Y") ;; 電氣條件與補正由 life306b.lsp 控制. │ │ (setq wclay_bylayer "Y") ;; 該圖元圖層來定條件不會跳到其他圖層. │ │ (setq del_inhole "N") ;; 不會將起割孔(點)刪除. │ │ (setq dcir_138 "0") ;; 圓分段"0"二. "1"三. "2"四. "3"六. "4"八. │ │ (setq an_138_wir 45.0) ;; 圓起割角度. │ │ (setq dff_side_wir 3.0) ;; 助走線長度. │ │ │ │ (setq set_305 "0") ;; "0"補正依設定."1"依材質板厚."2"依設定圖層. │ │ ;; "3"依材質圖層."4"依設定累加."5"依材質累加. │ │ │ │ (setq abcd_305 "0") ;; "0"-> A機. "1"-> B機. "2"-> C機. "3"-> D機.│ │ │ │ (setq can_mode "4") ;; "0" 機器清角. "1" 補正清角. "2" 尖角清角. │ │ ;; "3" 暫停清角. "4" 圓弧清角. "5" 方形清角. │ │ ;; "6" Ｌ形清角. "7" 三角清角. "8" 外插清角. │ │ (setq g40_side 0.3) ;; 清角邊距(直徑). │ │ (setq g40_dist 0.05) ;; 清角長度. │ │ │ │ (setq p305_lio "L") ;; 外形切斷 "L" 切平. "I" 切凹. "O" 切凸. │ │ (setq oio_dist 0.05) ;; 外形凹凸距離. │ │ (setq oio_dist_rad 0.05) ;; 外形凹凸弧半徑. │ ├─────────────────────────────────────┤ │ (setq g40_only "Y") ;; 補正取消指令(G40)單獨一行. │ │ (setq g40_codeend "Y") ;; 補正取消指令(G40)在後面. │ │ (setq g412_codeend "Y") ;; 補正指令(G41/G42)在後面. │ │ (setq e00_dist_g412 "Y") ;; 補正加在入線長度那一行(當入線長大於0). │ │ (setq h_e00_dist "Y") ;; 補正加在到入線點那一行(當入線長大於0). │ ├─────────────────────────────────────┤ │ ******** 加 入 字 串 ********* │ ├─────────────────────────────────────┤ │ (setq top1_305 "") ;; 程式頭加入第一行指令(其他孔不加). │ │ (setq top2_305 "") ;; 程式頭加入第二行指令(其他孔不加). │ │ (setq top3_305 "") ;; 程式頭加入第三行指令(其他孔不加). │ │ (setq top4_305 "") ;; 程式頭加入第四行指令(其他孔不加). │ │ (setq top5_305 "") ;; 程式頭加入第五行指令(其他孔不加). │ │ (setq top6_305 "") ;; 程式頭加入第六行指令(其他孔不加). │ │ (setq top7_305 "") ;; 程式頭加入第七行指令(其他孔不加). │ │ (setq top8_305 "") ;; 程式頭加入第八行指令(其他孔不加). │ │ (setq top9_305 "") ;; 程式頭加入第九行指令(其他孔不加). │ │ (setq top10305 "") ;; 程式頭加入第十行指令(其他孔不加). │ │ (setq s1_command "") ;; 每孔第一行加入指令(穿線上方第一行). │ │ (setq s2_command "") ;; 每孔第二行加入指令(穿線上方第一行). │ │ (setq g92_up "") ;; G92的上一行加入字串. │ │ │ │ (setq g92_next "M90") ;; G92的下一行加入字串. │ │ (setq g92_next1 "") ;; G92的下二行加入字串. │ │ (setq g92_next2 "") ;; G92的下三行加入字串. │ │ (setq g92_next3 "") ;; G92的下四行加入字串. │ │ │ │ (setq m21f_306 "") ;; 剪線前加暫停指令. │ │ (setq out_cutstop "M01") ;; 外形執行割斷程式暫停指令(等於 "" 不會暫停).│ │ (setq open_cutstop "M01") ;; 開放路徑外形切斷暫停指令(等於 "" 不會暫停).│ │ (setq open_g40stop "M01") ;; 開放路徑回G40前停止指令. │ ├─────────────────────────────────────┤ │ (setq m38_code "M38") ;; 慶鴻轉角減速使用指令(M37/M38都可以). │ ├─────────────────────────────────────┤ │ (setq g4ab_306 "") ;; 補正指令後加字串. │ │ (setq gts_306 "") ;; 補正開始前一行加入指令. │ │ (setq gbs_306 "") ;; 補正結束後加入指令. │ │ (setq g40_enda "") ;; 補正結束行後加字串. │ │ (setq g40_enda1 "") ;; 第二刀補正結束行後加字串. │ │ (setq g40_enda2 "") ;; 第三刀補正結束行後加字串. │ │ (setq g40_enda3 "") ;; 第四刀補正結束行後加字串. │ │ (setq g40_enda4 "") ;; 第五刀補正結束行後加字串. │ │ (setq g40_enda5 "") ;; 第六刀補正結束行後加字串. │ │ (setq g40_enda6 "") ;; 第七刀補正結束行後加字串. │ │ (setq g40_up "") ;; 補正結束前一行字串. │ │ (setq nhole_enda "") ;; 跳下一孔後加字串. │ │ (setq o1g40_up "") ;; 外形第一刀補正結束前一行字串. │ │ (setq o1g40_enda "") ;; 外形第一刀補正結束行後加字串. │ │ (setq o1g40_g04next "") ;; 外形第一刀脫離後加入指令下一行加入指令. │ │ │ │ (setq o1g412_up "") ;; 外形第一刀G41/G42前加字串. │ │ (setq o2g412_up "") ;; 外形第二刀G41/G42前加字串. │ │ (setq o3g412_up "") ;; 外形第三刀G41/G42前加字串. │ │ (setq o4g412_up "") ;; 外形第四刀G41/G42前加字串. │ │ (setq o5g412_up "") ;; 外形第五刀G41/G42前加字串. │ │ (setq o6g412_up "") ;; 外形第六刀G41/G42前加字串. │ │ (setq o7g412_up "") ;; 外形第七刀G41/G42前加字串. │ │ │ │ (setq i1g412_up "") ;; 內孔第一刀G41/G42前加字串. │ │ (setq i2g412_up "") ;; 內孔第二刀G41/G42前加字串. │ │ (setq i3g412_up "") ;; 內孔第三刀G41/G42前加字串. │ │ (setq i4g412_up "") ;; 內孔第四刀G41/G42前加字串. │ │ (setq i5g412_up "") ;; 內孔第五刀G41/G42前加字串. │ │ (setq i6g412_up "") ;; 內孔第六刀G41/G42前加字串. │ │ (setq i7g412_up "") ;; 內孔第七刀G41/G42前加字串. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ (setq modeoff_spop "Y") ;; 將定義[設定]共用角度]反白不能修改. │ │ (setq modeoff_seteg "Y") ;; 將定義[設定電氣及補正]反白不能修改. │ │ (setq modeoff_dir "Y") ;; [線割方向]反白不能修改. │ │ (setq modeoff_abcd "Y") ;; 將定義[(機器右邊)A/B/C/D/E/F]反白不能修改. │ │ (setq modeoff_clean "Y") ;; 將定義[清角方式]反白不能修改. │ │ (setq modeoff_fixdir "Y") ;; 將定義[順修/逆修方式]反白不能修改. │ │ │ │ (setq modeoff_eg "Y") ;; 將轉程式[電氣條件及補正]設定反白不能修改. │ │ (setq modeoff_iline "Y") ;; 將轉程式[穿線方式]設定反白不能修改. │ │ (setq modeoff_g90g91 "Y") ;; 將轉程式[使用座標]設定反白不能修改. │ │ (setq modeoff_uvg901 "Y") ;; 將轉程式[ＵＶ座標]設定反白不能修改. │ │ (setq modeoff_rofix "Y") ;; 將轉程式[設定二/旋轉修刀]設定反白不能修改. │ ├─────────────────────────────────────┤ │ (setq start_c1stop "") ;; 第一刀:入線點暫停條件. │ │ (setq start_c2stop "") ;; 第二刀:入線點暫停條件. │ │ (setq start_c3stop "") ;; 第三刀:入線點暫停條件. │ │ (setq start_c4stop "") ;; 第四刀:入線點暫停條件. │ │ (setq start_c5stop "") ;; 第五刀:入線點暫停條件. │ │ (setq start_c6stop "") ;; 第六刀:入線點暫停條件. │ │ (setq start_c7stop "") ;; 第七刀:入線點暫停條件. │ ├─────────────────────────────────────┤ │ (setq dir_138 "0") ;; 線割方向: "0"順時針. "1"逆時針. │ │ (setq idir_138 "0") ;; 內孔線割方向: "0"順時針. "1"逆時針. │ │ (setq odir_138 "0") ;; 外形線割方向: "0"順時針. "1"逆時針. │ ├─────────────────────────────────────┤ │ (setq iline_amark "") ;; 在自動穿線指令前加入字串. │ │ (setq cline_amark "") ;; 在自動剪線指令前加入字串. │ │ (setq stop_amark "") ;; 插入暫停指令前加入字串. │ │ (setq copy_dir306 "D:\\") ;; 作完程式自動備份指定資料夾. │ ├─────────────────────────────────────┤ │ ******** 轉 程 式 (資料一) 參數 ********* DATA 1 │ ├─────────────────────────────────────┤ │ (setq ext_file ".NC") ;; 延伸檔名. │ │ (setq wir_305 "0") ;; 穿線方式: "0"手動. "1"自動. │ │ (setq uv_g901 "0") ;; UV 座標: "0"G90 "1"G91 "2" 2Point │ │ (setq g90_g91 "0") ;; 使用座標: "0"G90 "1"G91 │ │ (setq path_306 "c:\\nc\\") ;; 程式路徑. │ │ (setq path_dxf "c:\\nc\\") ;; DXF 輸出路徑. │ │ (setq fanuc_yn "0") ;; 使用Fanuc控制器 ["0" NO."1" YES]. │ │ │ ├─────────────────────────────────────┤ │ ******** 轉 程 式 (資料二) 參數 ********* DATA 2 │ ├─────────────────────────────────────┤ │ (setq oang_per "0") ;; 外形絕對尖角方式:"0"NO. "1"轉弧 "2"轉四角│ │ "3"轉三角. │ │ (setq cf_split "0") ;; "0"割修同程式. "1"割修程式分開. │ │ (setq cmeg_yn "0") ;; "0"不同機器相同條件. "1"需變化條件. │ │ (setq cir_306 "0") ;; 需割內Ｒ角: "0"NO. "1"YES. │ │ (setq cor_306 "0") ;; 需割外Ｒ角: "0"NO. "1"YES. │ │ │ │ │ │ (setq ost_306 "0") ;; 外形修刀回起割點:"0"NO. "1"YES. │ │ (setq stop1_next "") ;; 割斷前暫停指令,下一行指令. │ │ (setq stopi_next "") ;; 回到入線點下一行指令的下一行. │ │ (setq stop1_slash "Y") ;; 割斷前暫停指令,下一行G指令都加 "/"到"G40". │ │ (setq 2point_yn "Y") ;; 割斷要回入線點,在到過切點. │ │ (setq stop2_up "") ;; 割斷後上一個指令. │ │ (setq stop2_next "") ;; 割斷後暫停指令,下一行指令. │ │ (setq stop3_up "M91") ;; 回到最後起割點指令,上一行指令. │ │ (setq stop3_next "") ;; 回到最後起割點指令,下一行指令. │ │ (setq cstop_306up "") ;; 跳下一孔前暫停指令前一行指令. │ │ (setq nstop_306next "") ;; 跳下一孔後暫停指令,下一行指令. │ ├─────────────────────────────────────┤ │ ******** 轉 程 式 (資料三) 參數 ********* DATA 3 │ ├─────────────────────────────────────┤ │ (setq cseg_306 "1") ;; "0"補正行前後."1"補正前同行."2"補正行後方. │ │ ;; "3"補正前上下."4"補正指令後."5"補正行上下. │ │ (setq cutfix_p "0") ;; 外形割斷處需修刀: "0"NO. "1"Yes. │ │ (setq sili_306 "0") ;; 起割第一孔需穿線: "0"NO. "1"Yes. │ │ (setq cut_305 "0") ;; 工 件 割 斷 方式: "0"單孔割斷. "1"一起割斷.│ │ (setq off_wnc# "0") ;; 將間隙加在程式: "0"NO. "1"Yes. │ │ (setq chkr_306 0.1) ;; 內Ｒ多小會提示(清角就不會). │ │ (setq tm_ 3.0) ;; 文字高度(註解用). │ │ (setq wper_306 3.0) ;; 刀口長度(註解用). │ │ (setq txtla413 "TEXT") ;; 註解圖層. │ │ │ │ │ │ (setq text_layer "C") ;; 寫入註解文字為當前層. │ │ (setq biga_radius 10000.0) ;; 當弧半徑超過會提示. │ ├─────────────────────────────────────┤ │ (setq sadd_gape "S") ;; 程式頭寫入間隙值單獨一行. │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定一/資料四) 參數 ***** DATA 4 │ ├─────────────────────────────────────┤ │ (setq ano_306 "0") ;; 加入序號:"0"NO. "1"單孔加(4). "2"單孔加(1).│ │ ;; "3"N0001 "4"N00001 "5"加引號. "6"後加分號. │ │ (setq gsp_arc "0") ;; 使用弧出功能: "0"NO. "1"YES. │ │ (setq ag0_306 "0") ;; 程式頭寫入補正值: "0"NO. "1"Yes. │ │ (setq out_w#g "0") ;; 註解:"0"NO "1"加補正 "2"加價錢 "3"補正+價錢│ │ (setq cngap_se "0") ;; 起割電氣割無屑: "0"NO. "1"YES. │ │ (setq nogape306 "N") ;; 無屑加工加補正: "N"不加. "Y"加補正. │ │ (setq chkh_306 "0") ;; 自定檢查孔: "0"NO. "1"YES. │ │ │ │ (setq remark_color "N") ;; 註解不要有顏色. │ │ (setq remark_qty "N") ;; 註解不要有數量. │ │ (setq remark_clean "N") ;; 註解不要有清角. │ │ (setq remark_wcdia "N") ;; 註解不要有線徑. │ │ (setq remark_path "N") ;; 註解不要有路徑. │ │ (setq remark_from "N") ;; 不需加工註解. │ │ (setq back_306 "0") ;; 程式結束回起割點: "0"NO. "1"YES. │ │ (setq back_M00 "Y") ;; 程式結束回起割點前加入M00 │ │ (setq delopath "0") ;; 轉程式刪模擬路徑: "0"NO. "1"YES. │ │ (setq delrpath "0") ;; 讀資料刪模擬路徑: "0"NO. "1"YES. │ ├─────────────────────────────────────┤ │ (setq ano_306_5n0001 "Y") ;; 程式加[加引號]每孔前需加 "N0001" 累加序號. │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定一/資料五) 參數 ***** DATA 5 │ ├─────────────────────────────────────┤ │ (setq off_fix 0.2) ;; 偏修長度. │ │ (setq clh_306 0.1) ;; 清線頭長度. │ │ (setq cutp_306 0.0) ;; 割斷外形過切長. │ │ (setq unit_306 5) ;; 小數點位數. │ │ (setq nofi_306 "0") ;; 轉程式顯示: "0"孔號. "1"程式. │ │ (setq ano_mode "0") ;; 編號方式: "0"從１開始. "1"依孔號. │ │ (setq next_306 "0") ;; 跨越下一段: "0"NO. "1"YES. │ │ │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定二/資料六) 參數 ***** DATA 6 │ ├─────────────────────────────────────┤ │ (setq cut1_ang "0") ;; 那一刀不割角度: "0"沒有. "1"第一刀. │ │ "2"前二刀. "3"前三刀. │ │ (setq stn_c01 "0") ;; 暫停清角在第幾刀: "0"第一刀. "1"第二刀. │ │ "2"前二刀. "3"前三刀. │ │ (setq g40_c01 "0") ;; 補正清角幾刀內需要:"0"第一刀. "1"前二刀. │ │ (setq chk_cnc "0") ;; 列出程式相關聯資料:"0"NO. "1"YES. │ │ │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定二/資料七) 參數 ***** DATA 7 │ ├─────────────────────────────────────┤ │ (setq 1ir_306 0.00) ;; 第一刀內角Ｒ. │ │ (setq 2ir_306 0.18) ;; 第二刀內角Ｒ. │ │ (setq 3ir_306 0.18) ;; 第三刀內角Ｒ. │ │ (setq 4ir_306 0.18) ;; 第四刀內角Ｒ. │ │ (setq 5ir_306 0.18) ;; 第五刀內角Ｒ. │ │ (setq 1or_306 0.00) ;; 第一刀外角Ｒ. │ │ (setq 2or_306 0.22) ;; 第二刀外角Ｒ. │ │ (setq 3or_306 0.22) ;; 第三刀外角Ｒ. │ │ (setq 4or_306 0.22) ;; 第四刀外角Ｒ. │ │ (setq 5or_306 0.22) ;; 第五刀外角Ｒ. │ │ │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定二/資料八) 參數 ***** DATA 8 │ ├─────────────────────────────────────┤ │ (setq rdist306 10.0) ;; 內孔旋轉修刀距離. │ │ (setq rside306 1.00) ;; 內孔旋轉修刀邊距. │ │ (setq hold306 "G04X4.0") ;; 暫停清角需加入指令. │ │ (setq pstop_306 "G04X2.0") ;; 外形取消補正加指令. │ │ │ │ (setq rdist_rotate2 "Y") ;; 內孔旋轉修刀只旋轉二次. │ │ (setq rotate_cfsp "Y") ;; 旋轉修刀[割與修]起割點相同. │ │ (setq rarc_rad306 6.00) ;; 內孔旋轉修刀弧最小半徑. │ │ (setq hold3061 "G04X4.0") ;; 暫停清角修一加入指令. │ │ (setq hold3062 "G04X4.0") ;; 暫停清角修二加入指令. │ │ (setq hold3063 "G04X4.0") ;; 暫停清角修三加入指令. │ │ (setq hold3064 "G04X4.0") ;; 暫停清角修四加入指令. │ │ (setq hold3065 "G04X4.0") ;; 暫停清角修五加入指令. │ │ (setq hold3066 "G04X4.0") ;; 暫停清角修六加入指令. │ ├─────────────────────────────────────┤ │ ***** 轉 程 式 (設定三) 參數 ***** │ ├─────────────────────────────────────┤ │ (setq caltime "0") ;; 計算線割加工時間: "0"NO. "1"YES. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ ***** 2.26 版精簡的參數 ***** │ ├─────────────────────────────────────┤ │ (setq mark_ang "A") ;; 角度代號. │ │ (setq stop1_306 "") ;; 割斷前暫停指令. │ │ (setq stopi_306 "") ;; 回到入線點下一行指令. │ │ (setq stop2_306 "") ;; 割斷後暫停指令. │ │ (setq stop3_306 "") ;; 回到原點暫停指令. │ │ (setq cstop_306 "") ;; 跳下一孔前暫停指令. │ │ (setq nstop_306 "") ;; 跳下一孔後暫停指令. │ │ (setq aee_306 "1") ;; 使用電氣條件. "0"NO. "1" YES. │ │ (setq aeg_306 "1") ;; 使用補正&電氣條件. "0"NO. "1" YES. │ │ (setq ag0_306 "0") ;; 程式頭寫入補正值: "0"NO. "1"Yes. │ │ (setq oai_306 "0") ;; 外型斷線處可穿線: "0"NO. "1"Yes. │ │ (setq cut_wire "0") ;; 自動穿線剪線方式: "0"割斷後. "1"回起割點.│ │ (setq as1_306 "") ;; 穿線與 g92_up(參數)間第一行加入字串. │ │ (setq as2_306 "") ;; 穿線與 g92_up(參數)間第二行加入字串. │ │ (setq as3_306 "") ;; 穿線與 g92_up(參數)間第三行加入字串. │ │ (setq as4_306 "") ;; 穿線與 g92_up(參數)間第四行加入字串. │ │ (setq back_306 "0") ;; 程式結束回起割點: "0"NO. "1"YES. │ │ (setq ijabs306 "0") ;; I.J使用坐標: "0"相對. "1"絕對. │ │ (setq slno_306 "0") ;; 孔尾加孔號: "0"NO. "1"YES. │ │ (setq hsps_306 "0") ;; 孔與孔加空白行: "0"NO. "1"YES. │ │ (setq start_306 "%") ;; 程式開始. │ │ (setq end_306 "%") ;; 程式結束. │ │ (setq back_a02 "0") ;; 回程計價: "0"NO. "1"YES. │ │ (setq lma_306 "0") ;; 註解加機器名稱:"0"NO. "1"YES. │ │ (setq mod_gap "0") ;; 補正值加間隙: "0"NO. "1"YES. │ │ (setq unit_edm "0") ;; 小數點顯示:"0"有小數點(0.1)"1"無小數點(100)│ │ (setq cf_stop "0") ;; 粗割與精修間需暫停:"0"NO. "1"YES. │ │ (setq wre_306 "0") ;; 寫入註解: "0"NO. "1"YES. │ │ (setq spa_306 "0") ;; 文字之間: "0"無空格. "1"有空格. │ │ (setq dxf_306 "0") ;; 產生DXF輸出檔: "0"NO. "1"YES. │ │ (setq edm_i306 "0") ;; 產生放電NC座標: "0"NO. "1"YES. │ │ (setq basp#code "G01") ;; 回起割點指令(G00/G01). │ │ (setq nholecode "G00") ;; 跳下一孔指令(G00/G01). │ │ (setq ama_306 "0") ;; 程式需加入機器名稱: "0"NO. "1" YES. │ │ (setq gsp_306 "F60.00") ;; 回到起割點加入字串. │ │ (setq nhole_enda "F200.0") ;; 跳下一孔後加入字串 │ │ (setq textno306 "0") ;; 孔號寫入位置: "0"起割點. "1"入線點. │ │ (setq cutr_fd 50.0) ;; 割Ｒ角Ｆ降速(%). │ │ (setq rarc_rad306 6.00) ;; 內孔旋轉修刀弧最小半徑. │ │ (setq rotate_cfsp "Y") ;; 旋轉修刀[割與修]起割點相同. │ │ (setq udr_306 "G87") ;; 上下同Ｒ需加入指令. │ │ │ │ (setq clin_305 "0") ;; 清線頭: "0"NO "1"YES │ │ (setq clin_2yn "Y") ;; 第二刀也清線頭 │ │ (setq clh_306 0.05) ;; 清線頭長度 │ │ │ │ (setq stop1_oil "N") ;; 有油孔不需割斷前暫停. │ │ (setq auto_oil "N") ;; 內導柱,定位銷.......不會自動割油孔. │ │ (setq fix_oil "Y") ;; 油孔溝需修刀. │ │ (setq oilcut_sl "Y") ;; 割到油孔內會為暫停點. │ │ (setq oil_bcut "N") ;; 有割油孔不需過切. │ ├─────────────────────────────────────┤ │ ******** 特 殊 字 串 ********* │ ├─────────────────────────────────────┤ │1. "無屑加工" ;; 前四個字為該字串自動作無屑加工. │ │2. "內孔外割" ;; 前四個字為該字串,路徑從外到內,補正不變. │ │3. "內外脫共用" ;; 自動變化補正(G41變G42 或 G42變G41). │ │4. "內導柱" "內導套" "定位銷" "固定銷" "固定孔" "合銷" "導柱" "導套" │ │ "Dowel Pins" "In Guide" "Guide Bush" │ │ ***** 如尚未定路徑,會作逃孔(油 孔)的路徑 ***** │ ├─────────────────────────────────────┤ │ wirm#305 設定機器. wirm_305 轉程式機器. │ ├─────────────────────────────────────┤ │ 無屑加工 No Core 定位銷 Dowel Pins 內導柱 In Guide │ │ 導料銷 Guide Pins 頂料銷 Lifter Pins 內導套 Guide Bush │ │ 副程式 Sub File │ │ │ │ 順時針: CW 逆時針: CCW 割修同時: Also 割修分開: Split │ │ 絕對座標: ABS 相對座標: INC 相同圓: Same Circle 上下異形: UDBOX │ ├─────────────────────────────────────┤ │ │ │ ***** WireCAM 操 作 流 程 ***** │ ├─────────────────────────────────────┤ │ 1.將需要[轉程式]的異形孔圖元作成 POLYLINE 使用下列方式: │ │ │ │ a.將重複線刪除(簡化指令 dp). │ │ b.將線及弧串接成 POLYLINE (簡化指令 aj). │ │ *** 輸入 NAJ 結合上述二個功能及消除空間線,效果更好 *** │ │ │ │ 2.自動產生線割路徑(簡化指令 WP/WE): │ │ │ │ a.選取需加工逃線頭的孔. │ │ b.再選取不需逃線頭的孔,不理想處再用半自動方式產生加工路徑. │ │ *****可同時選圓(CIRCLE)及複線(POLYLINE)數量可多選***** │ │ ●●● 在 2.14 版後,可以跳過第二,直接作第三(已將路徑與定義結合)●●● │ │ │ │ 3.定義線割加工條件(簡化指令 WC): │ │ │ │ a.先定義[導柱孔],進入[設定]將加工條件,停止長度/過切長度/電氣條件/補正值│ │ /穿線方式/補正方式/線割機器設定好,再回到[定]的主劃面將 [線割精度/割修│ │ 同時或先割後修/斜度]設定後程式自動會將所有設定均存起來(SAVE). │ │ │ │ b.定義名稱為[導柱孔/定位銷;自動會有逃線頭孔,程式會將選到的導柱孔,變色及│ │ 出現箭頭,選圖元的先後次序就是加工的先後. │ │ │ │ c.選完圖元程式會問加工編號,如果輸入0程式就不會編號,事後需再用[編號]去作│ │ 編號,自動作編號不滿意,可在用[編號]對換加工號碼程式或其他. │ │ │ │ d.在定義後如需[查看或修改]利用[讀加工資料]在按[確定]將資料寫入. │ │ │ │ │ │ 4.自動轉程式(簡化指令 LW/NC): │ │ │ │ a.將[割斷前/割斷後/回到起割點暫停指令]/[需加序號]/[G90/G91]/[需寫入加工│ │ 條件]/[檔名.副檔名]/[路徑]/[角度代號]/[文字輸出方式]......相關設定好.│ │ │ │ b.選擇線割圖元,程式會問你基準點,插入點後,自動將加工號碼寫入圖上,加工表 │ │ 寫入(加工號碼及加工表都在 W01 圖層). │ │ │ │ c.本程式後處理檔,放在 \LIFEWC 資料夾下,修改後將他存在 \LIFEWC\USER 下. │ │ LIFE306B.LSP 電氣及補正後處理檔. │ │ QUICKC.LSP 程式格式後處理檔. │ │ │ │ 5.其它加工簡化指令: │ │ │ │ 加工孔編號簡化指令 wt │ │ 改變加工孔方向簡化指令 wd │ │ 自動作局部斜角簡化指令 wa │ │ 自動作插角(逃角)簡化指令 wx │ │ 模擬程式路徑 sm │ │ 刪除模擬路徑 esm │ │ │ │***經上面五大項加工流程,相信很快就學會,有問題請告訴我們,我們會盡心處理****│ ├─────────────────────────────────────┤ │ ***** WireCAM 技 術 討 論 ***** │ ├─────────────────────────────────────┤ │1. 如何使用[三菱/粗割],[SodicK/精修]? │ │ 定義將機器設為[SodicK],轉程式設為[三菱];轉程式中間處[模板割修程式分開] │ │ 及[機器不同變化條件]二個都設為[YES]...就可以. │ │ │ │2. 如何設定先暫停再剪線? │ │ 設定回起割點暫停為 "M00" 跳下孔前暫停為 "" 就可以. │ │ │ │3. 同時轉出二條程式[定義]西部機轉出另一條為sodick機為何角度為 T 不為 A │ │ (if (= wirm_305 "2) │ │ (setq mark_ang "A" fanuc_yn "1") │ │ (setq mark_ang "T" fanuc_yn "0") │ │ ) │ │ │ │ 在 quickc.lsp 要設定上述四行就可以(如果忘記設到 fanun_yn 角度會是 T). │ ├─────────────────────────────────────┤ │ ***** WireCAM 電氣及補正設定 ***** │ ├─────────────────────────────────────┤ │1. 如何設定[電氣條件與補正]為客戶內定條件? │ │ │ │ 將 \lifewc\user\*.eg* 刪除. │ │ 將 \lifewc\life306b.lsp 開啟,依實際需求設定[電氣及補正]. │ │ │ │2. 如何依[名稱]定義加工[電氣條件與補正]? │ │ │ │ 在 life306b.lsp 內依名稱自定[電氣條件與補正]請參考下列說明: │ │ │ │ (if (= name305# "內導柱")(setq g0_305 "D01" g1_305 "D11" g2_305 "D21"))│ │ 如果名稱為 "內導柱" 設定粗割補正為 "D01" 修一為 "D11" 修二為 "D21" │ │ │ │ (if (= name305# "內導柱")(setq e0_305 "E11" e1_305 "E12" e2_305 "E13"))│ │ 如果名稱為 "內導柱" 設定粗割電氣為 "E11" 修一為 "E12" 修二為 "E13" │ │ │ │ ***** 以上方式就是以名稱定義[電氣條件與補正]其他圖元名稱以此類推 ***** │ │ │ │3. 如何定義固定條件如:內孔(有角度/無角度)? │ │ │ │ (if (= item_305 "1") ;;內孔 │ │ (progn │ │ (setq es_305 "E20") ;;起割電氣條件. │ │ (if (= tol_305 "0") ;;割一刀 │ │ (setq e0_305 "E21" g0_305 "H1") │ │ ) │ │ (if (= tol_305 "1") ;;割二刀 │ │ (setq e0_305 "E21" g0_305 "H2" e1_305 "E22" g1_305 "H3") │ │ ) │ │ (if (and (= tol_305 "0")(/= tapr_305 0)) ;;割一刀+角度 │ │ (setq e0_305 "E31" g0_305 "H4") │ │ ) │ │ (if (and (= tol_305 "1")(/= tapr_305 0)) ;;割二刀+角度 │ │ (setq e0_305 "E31" g0_305 "H5" e1_305 "E32" g1_305 "H6") │ │ ) │ │ ) │ │ ) │ │ │ │4. 如何定義固定條件如:外形? │ │ │ │ (if (= item_305 "0") ;;外形 │ │ (progn │ │ (setq es_305 "E20") ;;起割電氣條件. │ │ (setq ec_305 "E25" gc_305 "H25") ;;割斷電氣條件+補正. │ │ (if (= tol_305 "0") ;;割一刀 │ │ (setq e0_305 "E21" g0_305 "H11") │ │ ) │ │ (if (= tol_305 "1") ;;割二刀 │ │ (setq e0_305 "E21" g0_305 "H12" e1_305 "E22" g1_305 "H13") │ │ ) │ │ ) │ │ ) │ │ │ │5. 當割內孔名稱為 "刀模" 不要有任何電氣及補正如何設定? │ │ │ │ (if (and (= item_305 "1")(= name305# "刀模")) ;; 內孔+"刀模" │ │ (progn │ │ (setq es_305 "" e0_305 "" e1_305 "" e2_305 "") │ │ (setq g0_305 "" g1_305 "" g2_305 "") │ │ ) │ │ ) │ │ │ │6. 當割內孔名稱為 "內導柱" 固定電氣及補正如何設定? │ │ │ │ (if (and (= item_305 "1")(= name305# "內導柱")) ;; 內孔+"內導柱" │ │ (progn │ │ (setq es_305 "E20") ;;起割電氣條件. │ │ (if (= tol_305 "0") ;;割一刀 │ │ (setq e0_305 "E21" g0_305 "H11") │ │ ) │ │ (if (= tol_305 "1") ;;割二刀 │ │ (setq e0_305 "E21" g0_305 "H12" e1_305 "E22" g1_305 "H13") │ │ ) │ │ ) │ │ ) │ │ │ │7. 程式用語說明? │ │ │ │ (setq es_305 "E20") │ │ setq --> 設定. es_305 --> 變數名稱. "E20" 變數值. │ │ │ │ (if (= item_305 "0") (setq e0_305 "E21" g0_305 "H1")) │ │ if --> 如果 item_305 "0" 執行 ( ) 內的程式. progn --> 執行很多行程式. │ │ │ │ or 或(一個相同執行下方程式). and 和(必須要符合每個條件執行下方程式). │ │ │ │ ;; 代表不執行後面程式. 左刮號 ( 開始. 右括號 ) 結束. 要對稱不然會當機. │ │ │ │ = 等於. /= 不等於. nil 不存在的變數. │ │ │ │ "" 雙引號內為變數值(不可以只有一個,不然會當機). │ │ │ │ 下面的程式設定 plat_t 字串為 "20" │ │ │ │ strcat 結合字串. (setq e0_305 (strcat "E" plate_t "1")) --> "E201" │ │ │ │ substr 抓取字串. (setq e0 (substr plate_t 1 1)) --------> "2" │ │ │ │ │ │ │ │ │ │8. 變數代表意義說明? │ │ │ │ item_305 "0" 外形. item_305 "1" 內孔. item_305 "2" 開放路徑. │ │ │ │ tol_305 "0" 割一 tol_305 "1" 修一 tol_305 "2" 修二 (以此類推). │ │ │ │ aol_305 "0" 斜一 aol_305 "1" 斜二 aol_305 "2" 斜三 (以此類推). │ │ │ │ tapr_305 0.0 沒割角度. tapr_305 0.5 割0.5度. │ │ │ │ plate_t "20" 定義條件的板厚. metal_m "SKD11" 定義條件的材質. │ │ │ │ dia305# 0.25 銅線直徑. │ │ │ │ lay8 選到圖元圖層. │ │ │ │ name305# "圓孔" 圖元名稱為圓孔. │ │ │ │ dir_305 精修方向: "0"順修. "1"逆修. │ │ │ │ dir_138 線割方向: "0"順時針."1"逆時針. │ │ │ │ fcut_305 精修方式: "0"粗割精修同時. "1"粗割精修分開. │ │ │ │ gape305# "0" 有屑加工. gape305# "1" 無屑加工. │ │ │ │ wir_305 "0" 手穿線. wir_305 "1" 自動穿線. │ │ │ │ wirm_305 "1" 三菱. "2" 西部. "3" SODICK. "4" CHARMILL. "5" FANUC. │ │ "6" 慶鴻. "7" 徠通. "8" SPM. "9" 蘇三光. "10" AGIE. │ │ │ │ ***其他變數 \lifewc\readme.set (繁體) \lifewc\dclb\readme.set (簡體)***│ │ │ │9. 說明 3. 4. 5. 6.都在 life306b.lsp 內依機器來設定,在[定義加工條件]需設定│ │ 為[補正依設定]-->在右下角[編輯]的左邊. │ │ │ │10.如果要以圖元圖層來定義條件如何操作? │ │ 在[定義加工條件]需設定 [補正依設定],在 life306b.lsp 定義圖層變數 la8 │ │ 說明如下: │ │ │ │ (if (= lay8 "1") ;; 圖層 "1" │ │ (progn │ │ (setq es_305 "E20") ;;起割電氣條件. │ │ (if (= tol_305 "0") ;;割一刀 │ │ (setq e0_305 "E21" g0_305 "H1") │ │ ) │ │ (if (= tol_305 "1") ;;割二刀 │ │ (setq e0_305 "E21" g0_305 "H2" e1_305 "E22" g1_305 "H3") │ │ ) │ │ ) │ │ ) │ ├─────────────────────────────────────┤ │ ***** 二種機器 QUICKC.LSP條件如何設定 ***** 2007.01.14│ ├─────────────────────────────────────┤ │1. 慶鴻(手穿線) Sodick (自動穿線) 如何設定? │ │ (if (= wirm_305 "6")(setq wir_305 "0")(etq wir_305 "1")) │ │ │ │2. 三菱(G90與補正在一起) Sodick (G90單獨一行) 如何設定? │ │ (if (= wirm_305 "1")(setq g901_g92up "N")(setq g901_g92up "Y")) │ │ │ │3. FANUC(延伸檔名 .NC) Sodick (延伸檔名 .CNC) 如何設定? │ │ (if (= wirm_305 "5")(setq ext_file ".NC")(setq ext_file ".CNC")) │ │ │ │4. FANUC(角度代號 "T") Sodick (角度代號 "A") 如何設定? │ │ (if (= wirm_305 "5")(setq mark_ang "T")(setq mark_ang "A")) │ │ │ │5. 三菱(跳下孔用 "G01" 後加 "F300.") Sodick (跳下孔用 "G00") 如何設定? │ │ (if (= wirm_305 "1")(setq nholecode "G01" nhole_enda "F300.")) │ │ (if (= wirm_305 "3")(setq nholecode "G00" nhole_enda "")) │ ├─────────────────────────────────────┤ │ ***** 三種機器以上QUICKC.LSP條件如何設定 ***** 2007.01.14│ ├─────────────────────────────────────┤ │1. 徠通(手穿線) 三菱(手穿線) Sodick (自動穿線) 如何設定? │ │ (if (= wirm_305 "3")(setq wir_305 "1")(etq wir_305 "0")) │ │ │ │2. FANUC(延伸檔名 .NC) 西部(延伸檔名 .NC1) Sodick (延伸檔名 .CNC)如何設定?│ │ (cond │ │ ((= wirm_305 "2")(setq ext_file ".NC1")) │ │ ((= wirm_305 "3")(setq ext_file ".NC")) │ │ ((= wirm_305 "5")(setq ext_file ".CNC")) │ │ ) │ │ │ │3. FANUC(延伸檔名 .NC) 西部(延伸檔名 .NC) Sodick (延伸檔名 .CNC)如何設定? │ │ (if (= wirm_305 "3")(setq ext_file ".CNC")(setq ext_file ".NC")) │ │ │ │4. FANUC(角度代號 "T") 西部(角度代號 "T") Sodick (角度代號 "A") 如何設定? │ │ (if (= wirm_305 "3")(setq mark_ang "A")(setq mark_ang "T")) │ │ │ ├─────────────────────────────────────┤ │ 客戶電氣條件設定 │ ├─────────────────────────────────────┤ │ 1. 板厚 起割 第一刀 第二刀 第三刀 第四刀 第五刀 │ │ 5.00 E100 E1 E2 E3 E4 E5 │ │ 10.0 E100 E11 E12 E13 E14 E15 │ │ 20.0 E100 E21 E22 E23 E24 E25 │ │ 30.0 E100 E31 E32 E33 E34 E35 │ │ 40.0 E100 E41 E42 E43 E44 E45 │ │ 50.0 E100 E51 E52 E53 E54 E55 │ │ 60.0 E100 E61 E62 E63 E64 E65 │ │ 70.0 E100 E71 E72 E73 E74 E75 │ │ 80.0 E100 E81 E82 E83 E84 E85 │ │ │ │ 2. 板厚 起割 第一刀 第二刀 第三刀 第四刀 第五刀 │ │ 10.0 E100 E101 E102 E103 E104 E105 │ │ 20.0 E100 E201 E202 E203 E204 E205 │ │ 30.0 E100 E301 E302 E303 E304 E305 │ │ 40.0 E100 E401 E402 E403 E404 E405 │ │ 50.0 E100 E501 E502 E503 E504 E505 │ │ 60.0 E100 E601 E602 E603 E604 E605 │ │ 70.0 E100 E701 E702 E703 E704 E705 │ │ 80.0 E100 E801 E802 E803 E804 E805 │ │ │ │ *************** 以上二種如何用 LIFE306B.LSP 來定義 ***************** │ ├─────────────────────────────────────┤ │ ***** LifeCAD/AutoCAD 相關軟體技術討論 ***** │ ├─────────────────────────────────────┤ │1.按裝 LifeCAD 發現 autoexec.bat 不被 Windows 98/Me/2000/XP 執行,該如何? │ │ │ │ 搜尋 MSCONFIG.EXE 執行本程式可設定相關作業系統載入的程式. │ │ │ │2.在 AutoCAD 2000 下如何設定中間鍵為鎖點模式? │ │ │ │ 在 COMMAND(指令): 輸入 mbuttonpan Enter 後,設定為 0 就可以. │ │ │ │3.在 AutoCAD 2000 下標示尺寸出現小數點為[,]號改如何修改進[.]號? │ │ │ │ 在 COMMAND(指令): 輸入 dimdsep Enter 後,設定為 . 就可以. │ │ │ │4.在 AutoCAD 開啟舊檔沒出現對話框,該如何處理? │ │ │ │ 在 COMMAND(指令): 輸入 filedia 後,設定為 1 就可以. │ │ 在 COMMAND(指令): 輸入 cmddia 後,設定為 1 就可以. │ │ │ │5.如果 EXPLODE 不能使用,該如何處理? │ │ │ │ 在 COMMAND(指令): 輸入 .explode 就可以使用;AutoCAD 指令可重新被定義,但在│ │ 指令前加入[.]是AutoCAD的原始指令不能被修改[.line/.circle/.arc/.erase等].│ │ │ │6.在其他電腦使用文字正常,複製到其他模板為亂嗎如何處理? │ │ │ │ 到控制台內的[區域設定]設為 Chinese(Taiwan) 再載入圖檔就可以. │ │ │ │7.在AutoCAD 2000以上版本出圖如需完全為黑色應如何設定? │ │ │ │ *在Plot Device/Plot style Table將Name名稱改為Monochrome.ctb就可以. │ │ │ │8.執行指令出現[Dialog too large to fit on screen] 該如何處理? │ │ │ │ 這是因為對話框太大,螢幕放不下出現錯誤訊息,處理方式有二個方式. │ │ │ │ a.將螢幕解析度變高如改成: 1024*768 │ │ │ │ b.將螢幕上字型大小改變. │ │ │ │ 按右鍵內容,上面按鈕選擇[其他],按右下角[進階],字型大小選擇[其他],會出現│ │ │ │ 對話框,將字型調成(內定100%)改成 95% 再重新開機. │ │ │ │9.選圖元沒發現虛線,不知選到沒該如何處理? │ │ │ │ 在 COMMAND(指令): 輸入 HIGHLIGHT 後,設定為 1 就可以. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ ***** KGB 軟體技術討論 ***** │ ├─────────────────────────────────────┤ │1.按裝 KGB 系統出現 drive not found 該如何處理? │ │ │ │ 將游標點在[我的電腦]按下右鍵,選擇[裝置管理]在音效欄位看有沒有: │ │ Iss audio 及 Iss Video 如果沒有按下錯誤的地方,重新更新驅動程式,利用自行 │ │ 指定方式,指向[KGB 光碟片]上的\DRIVERS\WIN2K_XP 的資料夾下找新的驅動程式 │ │ ,設定正確需重新開機就可以(如果不是windows 2000/XP就找其他相關資料夾). │ │ │ │2.在其他電腦上連不上[KGB電腦主機]該如何處理? │ │ │ │ A.先瞭解KGB電腦主機的IP: │ │ 先跳到DOS下(或命令列)輸入ipconfig會出現下列訊息. │ │ Ip address 這台電腦主機的 IP │ │ Subnet Mask 這台電腦主機的遮罩 │ │ Default Gateware 網路主機的 IP │ │ │ │ B.在不能連線的電腦查是否能與KGB電腦主機連線: │ │ a.先跳到DOS下(或命令列)輸入 ping ip (這是指KGB電腦主機上的ip). │ │ 如出現 Time out 表示,KGB電腦主機有防火牆. │ │ b.如何將防火牆移除,將防毒軟體在控制台上[新增/移除]徹底移除,再重新開機 │ │ 使用 a 項方式再試,沒出現 Time out 表示可以連上線. │ │ │ │3.利用 internet 看[KGB電腦主機]上的監視劃面,如需要密碼該如何處理? │ │ │ │ A.開啟 [KGB電腦主機]上的 c:\eVision\index.htm │ │ B.搜尋 Password 將此行改為 =PasswordEnabled value=true>" │ │ C.進入 KGB軟體,設定[密碼]將系統控制密碼輸入按下確認就可以. │ │ │ │4.在不是ADSL主機上,裝置[KGB軟體]該如何作遠端監視? │ │ │ │ A.執行[KGB電腦主機]上的 c:\eVision\http.exe 會在右下角出現[紅色旗圖像]. │ │ B.執行[紅色旗圖像]會出現一個黑色的劃面,執行上方功能表最後一個[Setting]會│ │ 出現一個對話框,最下一行Port: 將他設定為 90 或 100 或 110 都可以,按下OK│ │ 後再去執行[File]的[Save]將設定儲存. │ │ C.進入[IE]在網址上輸入 http://0.0.0:90/ 就可看到監視劃面. │ │ D.上行的 0.0.0 是個範例,你要輸入申請的固定IP,如果KGB軟體裝在ADSL主機上就│ │ 不需如此麻煩,直接輸入 http://0.0.0 就可以. │ ├─────────────────────────────────────┤ ├─────────────────────────────────────┤ │ ***** 數 位 監 控 ***** │ ├─────────────────────────────────────┤ │ 應廣大台商要求,本公司最新導入[KGB數位監控錄影系統]它有以下優點. │ │ │ │ 1.長時間錄影,如4支彩色攝影機/40G硬碟大約可錄10天至20天,無需管理,錄滿後自 │ │ 動將最早錄製的檔案刪除再錄(你可利用CD-R備份,如此可保留長期的影像). │ │ │ │ 2.可選擇任一時間播放影像[慢放,快轉,暫停,任意放大縮小]或影像列印. │ │ │ │ 3.可設定警報錄影,有外物侵入或異常現象,發出鳴叫聲或透過數據機電話通知你. │ │ │ │ 4.利用內部聯網(虛擬IP),在任何一部電腦,可同時監看(董事長/總經理/相關單位及│ │ 警衛式/隨時可看到工廠每個單位生產狀況,大門訪客進出,倉庫,停車場的狀況). │ │ │ │ 5.利用 TVOUT 的功能,可將監視器(不需電腦)放在保安室/台幹宿舍同時監看. │ │ │ │ 6.利用ADSL網路(固定IP),在任何一地上網可同時監看錄影(在台灣可看到大陸工廠,│ │ 任何時間上班/生產的狀況;幼稚園上課的情形,學生的家長可透過ADSL網路瞭解).│ │ │ │ 7.每張卡錄影速度30張/秒,平均每支攝影機每秒可錄5-7張影像. │ │ │ │ 8.支援4/9/16/24/32/64支攝影機,採1/4/6/9/16/24/32/64及輪跳方式分割劃面. │ │ 如想作到[4支攝影機,每支攝影機每妙錄30張影像]買4卡,就可以達到實時效果. │ │ │ │ 9.本公司比較數10種軟體,發現本軟體(KGB)的[擴充/價格/學習/穩定]屬中上水準, │ │ 公司,工廠,停車場,大賣場,銀樓,幼稚園,一般住宅,社區,KTV,酒店.....均適用. │ │ │ │10.保證30分鐘學會本軟體(不需再倒帶找小偷,任何風吹草動,全在掌握中). │ └─────────────────────────────────────┘ 二.版本更新方法: 1. 如果你目前是 WireCAM 2.17 版,你需上網下載 WC218.ARJ 及 WC219C2.ARJ 再解壓縮 WC218.ARJ WC219C2.ARJ 2. 如果你目前是 WireCAM 2.17B1 版,你需上網下載 WC217.ARJ WC218.ARJ 及 WC219C2.ARJ 再解壓縮 WC217.ARJ WC218.ARJ WC219C2.ARJ 3. 使用R14 中文繁體版: 將 c:\lifewc\dclc\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU 使用R14 中文簡體版: 將 c:\lifewc\dclb\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU 使用2000中文繁體版: 將 c:\lifewc\2000\dclc\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU 使用2000中文簡體版: 將 c:\lifewc\2000\dclb\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU 使用2002中文繁體版: 將 c:\lifewc\2002\dclc\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU 使用2002中文簡體版: 將 c:\lifewc\2002\dclb\lifewc.mn* COPY 到中文版AUTOCAD SUPPORT 目錄下. 進入 AutoCAD 後,在指令下輸入 LIFEWCMENU