---

Hallo.

Kann ich in einem Layout Texte als benannte Variablen definieren, die ich in einem VBA-Makro abfragen kann?

Ich meine, den Layoutnamen kann ich im Makro mit "ThisDrawing.ActiveLayout.Name" verwenden. Ich möchte nun darüberhinaus im Layout Texte mit variablem Inhalt benennen, z.B. mit dem Inhalt "Lageplan Blatt 1" oder "7.1". Im Makro möchte ich dann diese Inhalte verwenden können, z.B. unter den Benennungen "Planinhalt" bzw. "Anlagennummer". Geht das?

Ich könnte mir als Hilfskonstruktionen vorstellen, dass VBA jeweils einen Text sucht, der an einer bestimmten Stelle steht oder der mit einer bestimmten Zeichenfolge anfängt, aber vielleicht geht es ja direkt...

MfG,
wwwilli

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

---

Aye das geht direkter, mit attdef also Attributen.
Attribute haben Namen und einen Wert. Sie sind daher in VBA leicht wiederzufinden und zu ändern, ohne dass man bestimmte Koordinaten absuchen müsste.

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

---

Hallo,
guter Anfang.

Vermutlich muss ich in VBA dann Objekte selektieren und alle mit
.ObjectName = "AcDbAttributeDefinition"
auf den richtigen .TagString testen.

Noch einige Fragen bitte:
- Ich will möglichst wenig Objekte durchsuchen müssen. Wie kriege ich nur die ACAD-Objekte des aktiven Layouts selektiert? Mit
"sset.Select (acSelectionSetAll)"
werden Elemente aus ALLEN Layouts und dem Modell ausgewählt. Oder gibt es eine Eigenschaft, die den Namen des Layouts angibt?

- Kann so ein Attribut seinen "Wert" anzeigen und nicht die "Bezeichnung", oder beides? Oder muss ich diese beiden Felder dazu umgekehrt verwenden?

MfG,
wwwilli

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

---

Hallo wwwilli,

jedes Layout wird in einem (als) Block verwaltet.

Code:

---

For Each layout In ThisDrawing.Layouts
    Debug.Print layout.Name, layout.Block.Count
    For Each entity In layout.Block
        Debug.Print entity.ObjectName
    Next entity
Next

---

Über Layout.Block kommst du an die Entitys eines Layouts.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo und danke.
Layout/Block/Entity probier ich Mo oder Di.

Weiß noch jemand was zur Wert-Anzeige bei Attributen? Oder muss ich in das Wesen der Attribute an und für sich tiefer einsteigen?

MfG,
wwwilli

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

---

So, also,
es scheint, ich muss das Attribut als Bestandteil eines Blocks definieren und ins DWG einfügen. Aber wie kommt VBA dann noch an die einzelnen Attributeigenschaften wieder dran (.TagString und .TextString)?
MfG,
wwwilli

[Diese Nachricht wurde von wwwilli am 10. Dez. 2007 editiert.]

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

---

OK, ich habe es wohl, mit
.HasAttributes und .GetAttributes ...

Danke und MfG,
wwwilli

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

---

Hallo Stelli,
ich bekomme bei manchen DWG in der Schleife "For Each Entity" nach Durchlauf einiger Tausend Objekte immer einen Fehler, den ich nicht abfangen kann:
"Laufzeitfehler '-2147221231(80040111)': Automatisierungsfehler; ClassFactory kann angeforderte Klasse nicht liefern."

    For Each entity In layout.Block
        Debug.Print entity.ObjectName
    Next entity 'hier fehler?

Kann man die "Entities" irgendwie anders ansprechen? Mit .Item(i) von irgendwas? Dann könnte ich ein "Resume Next" benutzen, um evtl. fehlerhafte Objekte zu übergehen. Aber ich komme nicht drauf.
MfG,
wwwilli

[Diese Nachricht wurde von wwwilli am 10. Dez. 2007 editiert.]

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

---

Naja, es geht.
Hatte wohl ein kleines SET vergessen oder so... 
MfG,
wwwilli

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