---

Hai,

wie kann ich alle Seiteneinrichtungen automatisch per VBA oder Script oder Lisp löschen?

Danke
NaServus

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

---

mit Lisp so:

(defun c:delallpagesetups()
  (vl-load-com)
  (vlax-for ITEM (vla-get-PlotConfigurations
                      (vla-get-ActiveDocument(vlax-get-acad-object))
                    )       
    (vl-catch-all-error-p   
      (vl-catch-all-apply
          'vla-delete (list ITEM)
      )       
    )
  )
)

Sollte sich auch auf VBA adaptieren lassen

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

---

Und mit VBA so:

Public Sub SeitenEinrichtung_entfernen()
Dim SeitEinr As AcadPlotConfiguration
For Each SeitEinr In ThisDrawing.PlotConfigurations
SeitEinr.Delete
Next
End Sub

Gruß, Carsten

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

---

Danke. Werds ausprobieren und bin recht zuversichtlich...

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