---

Ich suche nach einem bestimmten Layout z.B A4-hoch. Das habe ich geschafft aber ich habe vor, wenn er vorhanden ist ihm zu löschen. Jedoch wie soll ich das machen.
Ich hoffe es kann mir jemand helfen

Gruß
Roy

  (vl-load-com)
  (vlax-for ITEM(vla-get-PlotConfigurations
                  (vla-get-ActiveDocument(vlax-get-acad-object))
                )
    (setq PLTCFGLISTE (cons (list (strcase(vla-get-NAME ITEM)) ITEM)PLTCFGLISTE))
  )
 
  (vlax-for ITEM(vla-get-Layouts
                  (vla-get-ActiveDocument(vlax-get-acad-object))
                )
    (setq LAYOUTLISTE (cons (list (strcase(vla-get-NAME ITEM)) ITEM)LAYOUTLISTE))
  )

(setq LAYOUT (car(assoc (strcase "A4-hoch") LAYOUTLISTE)))

(if (= LAYOUT "A4-hoch")

  dann löschen aber wie??

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

---

Layout , oder doch benannte Seiteneinstellung??
(weißt du wirklich, was du tust?)

...zum Löschen eines vla-OBJEKTES nimmt gibts die Methode vla-delete.
Somit sollte (vla-delete LAYOUT) helfen..

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

---

So richtig funktioniert das nicht mit den (vla-delete LAYOUT) brauche ich noch was da. 

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

---

Zitat:

---

Original erstellt von CADmium:
Layout , oder doch benannte Seiteneinstellung??

---

Wahaaaas willst du löschen ?? Dein Code und deine Threadüberschrift sind verschiedene Schuhe... nicht, dass du nachher barfuß läufst

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

---

Ich will das Layout aus dem Dokument löschen. Üblicherweise geht man mit der Rechte auf Maustaste den Layouts und dann löschen, ich will das aber per lisp machen.

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

---

Tja, dann mußt du dich nach einem anderen CODE umgucken, deiner will ne benannte Seiteneinrichtung , die du im Plotdialog findest , löschen.

dein Layout findest du mit
(vla-item
  (vla-get-layouts
    (vla-get-activedocument
      (vlax-get-acad-object)
    )
  )
  LAYOUTNAME
)

------------------
- 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 wie soll ich ihm löschen ???

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

---

Weil dann erzeugt er einen neuen automatisch wenn ich mit (vla-delete layout) ran gehe

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

---

z.B. so:
(vla-delete
(vla-item
  (vla-get-layouts
    (vla-get-activedocument
      (vlax-get-acad-object)
    )
  )
  LAYOUTNAME
)
)

ein Fehlerhandling ist empfehlenswert.-> vl-catch-all-apply usw
P.S. es heißt IMHO das Layout

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

---

Danke für die Lehrstunde es funktioniert

Gruß
Roy

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

---

Hi ich bin auf der Suche nach einem Code der mir sämtliche Layouts in einen Plan löscht, leider reichen meine VLA Kenntnisse nicht um den vorhandenen Code zu modifiziren *heul*

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

---

Probiere es hiermit :

(vlax-for item  (vla-get-layouts(vla-get-activedocument (vlax-get-acad-object)))
    (not(vl-catch-all-error-p(vl-catch-all-apply  'vla-delete (list ITEM))))
)

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Danke!!!
10units unterwegs!!!
wollte das ganze schon mit WBlock erstellen umgehen.

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

---

Hallo Holger,

ich habe mich leider immer noch nicht mit den VLA-Befehlen anfreunden können.
Wie muss der Code verändert werden, daß nur Layouts gelöscht werden, die keinen Inhalt haben?

------------------
Axel

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

---

ungetestet ungefähr so ... da IMHO immer ein ansichtsfenster im Layout ist die "2" ...

(vlax-for item  (vla-get-layouts(vla-get-activedocument (vlax-get-acad-object)))
  (if (<(vla-get-count(vla-get-block item))2)
    (not(vl-catch-all-error-p(vl-catch-all-apply  'vla-delete (list ITEM))))
  )
)

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

---

Danke für die Hilfe.

Ich habe es noch ein wenig erweitert. Dann kann das Programmchen man eigentlich immer ausführen, damit keine leeren Layouts mitgespeichert werden, die beim DWF-Erzeugen im COMPASS stören.

(IF (= (GETVAR "tilemode") 1)
    (VLAX-FOR item (VLA-GET-LAYOUTS (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
      (IF (< (VLA-GET-COUNT (VLA-GET-BLOCK item)) 2)
(NOT (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'VLA-DELETE (LIST ITEM))))
      )
    )
)

------------------
Axel

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

---

na dann mach doch als erstes (setvar "tilemode" 1) ...

hoffentlich hast du eine Funktion , welche dir Groß und Kleinschreibung zwecks "Anpassung" ändert ?! 

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

---

Ich habe das anders gedacht: Nur wenn die Zeichnung im Modellbereich abgespeichert ist, kann ein leeres Layout weggelöscht werden, das nicht gebraucht wird. Wir arbeiten hier meist im Modellbereich.

Die Großschreibung habe ich im VLIDE eingestellt! 

------------------
Axel

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