[發帖精華]錯誤的圖層過濾器-造成檔案異常容量變大

[Tiger&蘋果爸]

可能因素是因為跨版本，而圖檔本身隱藏了錯誤訊息而造成 錯誤的圖層過濾器，所以圖檔變的很大。
會產生 錯誤的圖層過濾器 原因不明，研判是執行了不完整的程式或檔案非AutoCAD產生的可信任DWG檔。
而且 錯誤的圖層過濾器 由於數量太多(1、2萬個以上)，所以CPU當然不堪負荷，還會造成檔案大小異常的大。


至於 解決方案 依照版本的不同各有不同的方式，其中以 AutoCAD 2006 以上版本最方便且快速。
處理完畢檔案大小會大幅度縮小。
PS:如果圖檔不只一張，那就必須依靠 LISP 搭配 腳本檔(*.scr) 方式來快速解決。

※※※ AutoCAD 2006 以上版本 ※※※
方法1:使用 LAYER 指令 → 出現 是否刪除圖層過濾器? 對話方塊 → 點選 Y(是) 即可。


方法2:使用 FILTERS 指令 → 出現 刪除圖層過濾器 對話方塊 → 點選 刪除過濾器 即可。


※※※ AutoCAD 2005 以下版本 ※※※
方法:使用 LAYER 指令 → 出現 圖層性質管理員 對話方塊 → 點選 具名的圖層過濾器 → 點選 刪除全部 即可。


※※※ AutoCAD 2002 以下版本 ※※※
方法:請將圖面使用 WBLOCK指令 製作成外部圖塊，或是使用複製貼上的方式即可。
PS:上面補充的方法有時候會不行，如果還不行可能就要透過程式，所以建議還是使用新版本比較能除錯!

[anakin]

可以試試最傻瓜的解決方式解決檔案異常容量變大，就是全選圖面物件(你要保留的)，複製貼上到一張新圖檔(乾淨)的，這樣錯誤的一些隱藏東西(造成開啟圖層管理員會累格)就不會過去了。

[funjimr-old]

真是好呀...蘋果爸...我收下了

[rachellee]

試試這個辦法, 將下列這個lsp加到save的icon中，每次儲存就自動執行清除圖層過濾器。
命名為:LayFiltDel.lsp

代碼:

(defun rrbI:LayerFiltersDelete (strKeepWC / objXDict)
(vl-load-com)
(vl-catch-all-apply
(function
(lambda ()
(setq objXDict (vla-GetExtensionDictionary
(vla-get-Layers (vla-get-ActiveDocument
(vlax-get-acad-object))))))))
(cond (objXDict
(or (rrbI:DeleteAllXRecs objXDict "ACAD_LAYERFILTERS" strKeepWC)
(rrbI:DeleteAllXRecs objXDict "AcLyDictionary" strKeepWC)))))

(defun rrbI:DeleteAllXRecs (objXDict dictName strKeepWC / objDict i)
(vl-catch-all-apply
(function
(lambda ()
(setq objDict (vla-Item objXDict dictName))
(vlax-for objXRec objDict
(cond ((not (and strKeepWC (wcmatch (vla-Get-Name objXRec) strKeepWC)))
(setq i (1+ (cond (i)
(0))))
(vla-Delete objXRec)))))))
(cond (i (princ (strcat "\n" (itoa i) " filters deleted.")))))


(defun C:LayFiltDel (/ inpKeep)
(setq inpKeep (getstring "\nWildcard mask for filters to keep, or
to delete all: "))
(rrbI:LayerFiltersDelete (cond ((/= inpKeep "") inpKeep)))
(princ))


試試看!

[Tiger&蘋果爸]

試試這個辦法, 將下列這個lsp加到save的icon中，每次儲存就自動執行清除圖層過濾器。
命名為:LayFiltDel.lsp ...試試看!

謝謝回覆~< 貢獻 +1>

[公告]關於團隊成員的回文及貢獻

[KUNG]

對不起.請問"將下列這個lsp加到save的icon中"怎麼做?謝謝

[Tiger&蘋果爸]

對不起.請問"將下列這個lsp加到save的icon中"怎麼做?謝謝

1.必須先將 LayFiltDel.lsp 放在系統支援路徑下，加入ICON語法如下:
(LOAD "LayFiltDel.lsp");LayFiltDel;

2.關閉AutoCAD 2002，使用記事本開啟 功能表檔(acad.mns)，找到已下位置加入語法。
功能表檔(acad.mns)位置:
C:\Program Files\AutoCAD 2002\Support\acad.mns
-----------------------------------------
***POP1
**FILE
ID_MnFile [檔案(&F)]
ID_New [開新檔案(&N)... Ctrl+N]^C^C_new
ID_Open [開啟舊檔(&O)... Ctrl+O]^C^C_open
ID_DWG_CLOSE [關閉(&C)]^C^C_close
ID_PartialOp [$(if,$(eq,$(getvar,fullopen),0),,~)局部載入(&L)]^C^C_partiaload
[--]
ID_Save [儲存檔案(&S) Ctrl+S]^C^C_qsave (LOAD "LayFiltDel.lsp");LayFiltDel;
ID_Saveas [另存新檔(&A)...]^C^C_saveas
ID_ETransmit [電子傳送(&T)...]^C^C_etransmit
ID_Publish [Web 出版(&W)...]^C^C_publishtoweb
ID_Export [匯出(&E)...]^C^C_export
[--]
-----------------------------------------

3.儲存後關閉功能表檔(acad.mns)，重新啟動AutoCAD 2002 即可。


*2006以上版本請將語法加在 自訂檔(CUI) 即可。

[KUNG]

測試回報
上述方法確實可用
謝謝蘋果爸及rachellee大哥解決了我長久以來的困擾
感激不盡

[Tiger&蘋果爸]

測試回報
上述方法確實可用
謝謝蘋果爸及rachellee大哥解決了我長久以來的困擾
感激不盡

謝謝測試回報~
也很高興有幫上你的忙!!

[DARDAR]

一切都在努力學習中.謝謝分享。

[dio888chen]

這個問題一直持續困擾著我!!
來試試~

[leoneriol]

嗯嗯!!!???之前沒聽過的問題~~!

[Reicy]

我們在公司也常常遇到這樣的情快，圖檔帶大已經刪除了圖層還是辦法縮小檔案，總是只能把這樣的情況視而不見，謝謝蘋果爸還有rachellee的分享，謝謝大家。

[LOUS]

哇哇!! 真的好用的檔 之前 我不太清楚怎麼清除 還傻傻的一個一個慢慢殺 .=.= 有你們真好 謝謝!!

[shiobay]

謝謝蘋果爸，沒事多多爬文就對了~

[小秦]

感謝蘋果爸

[白金之星]

這篇我居然沒看到
趕快看一下

[vicki1021]

趕快來學習一下.謝謝分享~

[CADkawaii]

試試這個辦法, 將下列這個lsp加到save的icon中，每次儲存就自動執行清除圖層過濾器。
命名為:LayFiltDel.lsp

代碼:

(defun rrbI:LayerFiltersDelete (strKeepWC / objXDict)
(vl-load-com)
(vl-catch-all-apply
(function
(lambda ()
(setq objXDict (vla-GetExtensionDictionary
(vla-get-Layers (vla-get-ActiveDocument
(vlax-get-acad-object))))))))
(cond (objXDict
(or (rrbI:DeleteAllXRecs objXDict "ACAD_LAYERFILTERS" strKeepWC)
(rrbI:DeleteAllXRecs objXDict "AcLyDictionary" strKeepWC)))))

(defun rrbI:DeleteAllXRecs (objXDict dictName strKeepWC / objDict i)
(vl-catch-all-apply
(function
(lambda ()
(setq objDict (vla-Item objXDict dictName))
(vlax-for objXRec objDict
(cond ((not (and strKeepWC (wcmatch (vla-Get-Name objXRec) strKeepWC)))
(setq i (1+ (cond (i)
(0))))
(vla-Delete objXRec)))))))
(cond (i (princ (strcat "\n" (itoa i) " filters deleted.")))))


(defun C:LayFiltDel (/ inpKeep)
(setq inpKeep (getstring "\nWildcard mask for filters to keep, or
to delete all: "))
(rrbI:LayerFiltersDelete (cond ((/= inpKeep "") inpKeep)))
(princ))


試試看!

很好用感謝大大分享

[MAYA100]

嗯嗯謝謝您耶~~
可以知道這軟件還是有許多要修正地方
也感謝您加這問題給抓出來呢

請問是否將.lsp檔案放在這
C:\Program Files\AutoCAD 2008\Support

然後再用 工具/載入應用程式/(選取lsp檔案) OK呢??

嗯嗯謝謝蘋果爸~~我試看看先

[Tiger&蘋果爸]

嗯嗯謝謝您耶~~
可以知道這軟件還是有許多要修正地方
也感謝您加這問題給抓出來呢

請問是否將.lsp檔案放在這
C:\Program Files\AutoCAD 2008\Support

然後再用 工具/載入應用程式/(選取lsp檔案) OK呢??

是的!
可以放在預設的支援路徑即可~

[九癸]

謝謝蘋果爸，先來試試看是不是這個錯誤...

[farrah0613]

常有這方面問題,有解決的辦法真是太好了!謝謝!

[andrewng]

讓我看看有什麼方法解決~~

[andrewng]

厲害！果然爬文是有用的！明天上班讓我在公司試試看吧！