;löscht alle in einer Zeichnung definierten Layerfilter
(defun C:RemLayerFilters ( / lstTemp lstFilters enaFilter laFilterDict layerTable layerState)
(if
  (setq
    layerTable	 (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))))
    layerState	 (cdr (assoc 360 (entget layerTable)))
    laFilterDict (cdr (assoc 360 (entget layerState)))
  )
   (entdel laFilterDict)
)
  (princ)
)

(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
  )
)

(defun c:delfil	( / dict)
  (progn
    (vl-load-com)
    (if	(setq dict (ax:GetAcadLayerFilterDictionary))
      (entdel dict)
    )
  )
)

(prompt "\nZum starten 'RemLayerfilters' eingeben -> Lisp Version")
(prompt "\nZum starten 'DELFIL' eingeben -> VLisp Version")