---

Hallo Leute,

ich durchlaufe mit VBA eine Zeichnung und liste alle
Blöcke. Kann mir jemand sagen wie ich eventuell vorhandene
Attribute auslesen kann.

Vielen Dank.

Martin

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

---

http://www.ertls.de/dokumente/attribute_wblock.htm
schau mal da. So geht es in Autocad direkt.
In dem Beitrag wurde nur der Befehl attext zum Schreiben der Atribute in eine Textdatei vergessen.
Hoffe das ist ein Anfang.
Wenn du herrausgefunden hast wie es in VBA geht würde ich mich über eine Nachricht freuen. Beschäftige mich auch gerade damit.
Gruß Erti

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

---

schau mal auf deine festplatte bei:
C:\Programme\ACAD2000\Sample\VBA
da findest du einige beispielsprojekte. besonders wird dich da vermutlich ATTEXT.DVB interessieren.
außerdem hilft dir die entwicklerhilfe mit jeder menge beispiels-programmtexten.

------------------

Bernd

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

---

Hallo Martin,
anbei ein Auszug eines kleinen Programmes, zuvor mußt du natürlich den Block auswählen. Bei mir ist das Blockobjekt BlNew

Code:

---

    Dim AttsNew As Variant
    Dim NewCount As Integer
    Dim AttRefNew As AcadAttributeReference

    AttsNew = BlNew.GetAttributes 'Auslesen der Attribute aus BlNew
    For NewCount = UBound(AttsNew) To 0 Step -1
        Set AttRefNew = AttsNew(NewCount)
        'Jetzt kannst du mit deinem Attribut machen was du willst
    Next NewCount

---

------------------
Roland

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