thanks, R. Bell and J. Mishler

Just a note to say thanks for the routine that deletes all those pesky layer
filters. Autodesk, please take notice, and add it to Express. This Newsgroup
rocks!!

;;Original code to delete all layer filters by R. Robert Bell.
;;Heavily modified to delete only specific filters by
;;Jeff Mishler, December 2003

(defun c:filtrdel (/ names dicts)
(vl-Load-Com)
(princ "\nRoutine to delete all but the specified Layer filters. When
entering filter
names to retain, wildcards are allowed. i.e., entering \"zz*,xx*\"
will
delete all filters except those beginning with zz and xx.")
(setq names (getstring "\nEnter filter names to retain, press Enter
for none: "))
(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
(if (not (wcmatch (vla-get-name filtr) names))
(vla-delete filtr)
)
)
)
)
)
)
)
(princ "\nSpecified layer filters have been deleted.")
(princ)
)

 

You're welcome and I'm glad you found it useful! I believe that the code
needs to be revised for 2005, but I'm pretty sure that Mr. Bell has
addressed this already.

And as I finished typing the above I see that Robert has posted a reply with
the update......

Jeff

 

Yeah! Ditto what J C C wrote!

<clip>

 

I'm working on the AEC's filters. This version takes care of the "vanilla"
filters.

--
R. Robert Bell


Is this for the Layer Properties Manager Named Layer Filters or the AEC
Layer Manager's filters??!?
Forgive me for asking, but I haven't checked it out yet.

 

Dear Mr. Bell (any relation to Alexander Graham ...?)

Just got and installed your updated routine. works like a charm. One drawing
was relieved of 8883 filters! That's eight thousand and change. Now, this
layer filter feature will be useful, where before it was next to useless.

John