(defun C:LayerFiltersDelete ()
  (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 "\nAll layer filters have been deleted.")
  (princ)
)
(defun C:LFD () (C:LayerFiltersDelete))