Layer filter deletion
Layer filter deletion
(OP)
Does any know of a way to delete massive numbers of layer filters at once (rather than deleting them individually in the layer filter box)? We frequently will modify a client's drawing to be used as a template, and some come with 300-400 filters, which decreases their usefullness.
Thanks for any tips here.
Thanks for any tips here.





RE: Layer filter deletion
here's a lisp:
;delete all Layer filters
(DEFUN C:DELFIL()
(progn
(vl-load-com)
(defun ax:GetAcadLayerFilterDictionary (/ dict)
(setq dict
(member (cons 3 "ACAD_LAYERFILTERS")
(entget
(vlax-vla-object->ename
(vla-GetExtensionDictionary
(vla-get-layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
)
)
)
)
(if dict
(cdr (assoc 360 dict))
nil
)
)
(entdel (ax:GetAcadLayerFilterDictionary))
)
)
(prompt "\nZum starten 'DELFIL' eingeben -> VLisp Version")
regards Lothar
Win NT4.0(SP6),2000(SP3)
AC 2000i(SP2), ADT 3.0(SP3),
AC 2002, ADT 3.3,
AC 2004, ADT 2004
RE: Layer filter deletion
Thanks again!