Automatic removal of Layer Filters

I know there are a ton of posts about removal of layer filters, but I want to have AutoCAD 2002 automatically delete all layer filters as the designers go into their drawings. I tried to modify a script file I found for this but it gives a visual basic error if there aren't any layers to remove.

Any ideas?
KHeinz

 

Well known routine by Robert Bell.
Add to your acaddoc.lsp.
(or make a file called that, and place in \support folder)

;;
;; By R. ROBERT BELL
;;
(defun CLF ()
(vl-Load-Com)
(vl-Catch-All-Apply '(lambda ()
(vla-Remove
(vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object)))) "ACAD_LAYERFILTERS")))
(princ)
)
...........
If you want it to fire-up automatically, on each drawing open..
add this line also, right after the function.

(CLF)

Bob

 

Paste the following code to a new text file and saveas layerfilyerdelete.lsp

Code:

(defun c:lfd (/ dicts dict filtr)
(vl-Load-Com)
(vl-Catch-All-Apply
'(lambda ()
(setq dicts (vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object)
)
)
)
)
(vlax-for dict dicts
(if (and (= (vla-get-name dict) "ACAD_LAYERFILTERS")
(> (vla-get-count dict) 0))
(progn
(vlax-for filtr dict
(vla-delete filtr)
)
)
)
)
)
)
(princ)
)

Then, in your acaddoc.lsp file (create it if it doesn't exist, it should be
in the /Support/ folder) add the following:

(load "layerfilterdelete")
(c:lfd)


That should do it!

 

Hey Jeff,

Could you automatically create something similar and simple to send hatches and raster images to the back. Maybe something that can detect (like a reactor in VLisp) when it is newly created in a dwg?

 

This works great! Although it has me concerned of what it actually is removing. Does it only remove layer filters or does it remove other data as well. I have noticed that I have had drawing sizes go from 1.8mb to 123kb.

Just wondering,
Kheinz

 

Only layer filters. Thats what makes this routine so great. Most of the drawings I work with have over 30,000 layer filters from drawings being reused over and over agian.
I too would start from a file size 2-4 megs and end up with a 50-100k file size. I have mine set to run on drawing open.

 

Cool that's what I wanted to hear. This is going to save a ton of space on my server over time.

Thanks again,
KHeinz