---

Hallo Kollegen,

bin neu hier und beschäftige mich schon seit einiger Zeit mit Autocad-VBA

nun zu meiner Frage:
auf dem Layout befinden sich verschiedene Objekte(Texte, Schraffuren, Kreise usw) die alle verschiedenen Layern zugewiesen sind.
Wie kann ich auslesen welche Layer sich auf dem Layout befinden.

ich will eine Liste haben, wo ich sehe, welcher Layer sich auf welchem Layout befindet.

hoff ich hab mich klar ausgedrückt :-) code wär super.. ein kleiner Anfang reicht, sowas wie: for each layer in this Drawing.Layout123...

Gruß

Michi

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

---

ohne Code:
Durchlaufe alle Bereich (also ohne den Modellbereich zu berücksichtigen)
Pro Bereich erstellst du eine Liste *G*

Durchlaufe im Bereich alle Objekte, wenn Layer des Objektes bereits in Liste"aktuellerBereich" vorhanden
ist, nächsten Objekt, wenn Layer noch nicht in Liste steht, hinzufügen.

Wenn du auf Blockreferenzen stößt ist die Frage ob dich auch Lyer in Blockdefinitionen&Attribute interessieren?
Dann wird es aufwändig(er).

Und mit angebzeigten Objekten in Ansichtsfenster aus dem Modellbereich hat das natürlich alles nichts zutun.

Sofern du wirklich alle Objekte auswerten willst, spart man sich wenigstens zu prüfen ob der jeweilige Layer anzeigt wird,
denn dann wäre es wirklich aufwändig, zumindest wenn man verschachtelte Objekte berücksichtigen müßte.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo Michi,

kleiner Code für den Anfang:

Code:

---

  Dim tPS As AcadPaperSpace
  Set tPS = ThisDrawing.Layouts("Layout 123").Block
 
  For Each entity In tPS
    Debug.Print entity.Layer
  Next entity

---

Damit bekommst Du alle Layer. Wie cadffm schon schrieb wäre das erzeugen einer Liste natürlich sinnvoller
Die Zuweisung zu tPS kannst Du natürlich noch in eine weitere for each - Schleife packen

Grüße
Klaus 

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

---

Vielen Dank an euch, es klappt!

Danke :-)

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