---

Hallo zusammen,

ich hab in einem Block ein Attribut welches
auf konstant gesetzt ist.
Ist es möglich dies mit VBA auszulesen und sogar zu ändern.

Mit der üblichen .GetAttributes bekomme ich obiges Attribut nicht
mal erfaßt.

Weiß jemand Rat?

------------------
Gruß Jörn

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

---

Hallo Jörn,

Probier mal folgendes(Als Ansatz):

    Dim queryAttribute As Variant
    queryAttribute = blockRefObj.GetConstantAttributes

    MsgBox queryAttribute(0).textString
    queryAttribute(0).textString = "1234"
    MsgBox queryAttribute(0).textString

Damit kannst du auf Konstante Attribute zugreifen und diese ändern.

Gruß aus Vreden, Carsten

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

---

Hallo Carsten,

funktioniert einwandfrei.

Vielen Dank

P.S:
Ich komm übrigens aus Ahaus

------------------
Gruß Jörn

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

---

Hallo Carsten,

wollt nur noch mal ergänzen, das ich jetzt doch
kein Attribut Einstellung konstant verwende.

Hintergrund:
Ich hab eine Zeichnung, in der ich viele
Blockreferenzen verwende. Anwender können Daten
in den einzelnen Attributen einer Blockreferenz schreiben.

Jetzt wollt ich im Hintergrund automatisch den letzten Bearbeiter
von Daten eintragen. Das Eintragen funktioniert auch mit
blockRefObj.GetConstantAttributes einwandfrei, nur ich hab
festgestellt wenn ich bei einer Blockreferenz die konstanten Daten
eintrage, sind die gleichen Daten auch bei allen anderen
Blockreferenzen des gleichen Blocks enthalten.

Hab jetzt die Funtkion setXData genommen.
Sind auch unsichtbar und klappt prima.

------------------
Gruß Jörn

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