---

lade folgendes Lisp
(defun c:delofflayers()
  (vl-load-com)
  (vlax-for LAYER (vla-get-layers (vla-get-activeDOCUMENT(vlax-get-acad-object)))
    (if (=(vla-get-LayerOn LAYER):vlax-false)
      (vl-catch-all-error-p
        (vl-catch-all-apply
          'vla-delete
          (list LAYER)
        )
      )
    ) 
  )
)

und pack dir
^C^C DELOFFLAYERS auf einen Button

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP