---

Hallo allerseits!

Die Problemstellung ist, daß ich in Blockreferenzen, die Attribute enthalten, hier und da die Werte, Textstring, ändern muß. Soweit so gut. Die zweite Forderung ist, daß die geänderten Attribute in Rot geschrieben werden. Ist eigentlich auch kein Problem, wenn bei der Definition des Blocks die entsprechenden Element mit der Farbeigenschaft "byBlock" definiert wurden. Das sind sie aber nicht.

Versuchsweise habe ich das Symbol gesprengt und die entsprechenden Attribute farbmäßig angepaßt. Wenn ich dann den Block mit dem alten Namen erneut definiere kommt die Meldung "... bereits vorhanden, soll ich aktualisieren... Ok paßt.

Da es sich aber um viele verschiedene Blöcke handelt, die jeweils nur einmal referenziert sind, dachte ich mir das Ganze mittels VBA zu ändern. (siehe Code). Das funktioniert soweit, aber die bestehende Referenz wird nicht aktualisiert, d.h. das farblich geänderte Attribut bleibt unverändert. Setze ich aber eine zweite Referenz der Blockdefinition, dann klappt es. Warum? Oder besser, wie kann ich die bestehende Blockreferenz in der Zeichnung aktualisieren, nachdem ich die Blockdefinition geändert habe?

Gruß GüSo

Sub BlockAttributBMKÄndern()
'Ändern der Farbeinstellung der Attributsdefinition für die BMK
Dim ii As Long, Pkt As Variant
Dim Symbol As AcadBlockReference, Symboldefinition As AcadBlock
Dim Beifügung As AcadAttribute
Dim Farbe As New AcadAcCmColor

ThisDrawing.Utility.GetEntity Symbol, Pkt, "Blockreferenz auswählen (anclicken)!" 'Symbolreferenz auswählen
Set Symboldefinition = ThisDrawing.Blocks(Symbol.EffectiveName) 'Blockdefinition zuordnen

For ii = 0 To Symboldefinition.Count - 1
  If Symboldefinition.Item(ii).ObjectName = "AcDbAttributeDefinition" Then
    Set Beifügung = Symboldefinition.Item(ii)
    Set Farbe = Beifügung.TrueColor
    Farbe.ColorMethod = acColorMethodByBlock
    If InStr(1, Beifügung.TagString, "BMK") > 0 Then
      Beifügung.TrueColor = Farbe
      Beifügung.Update
      Exit For
    End If
  End If
Next ii
Symbol.Update
End Sub

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

---

Hi,

wirklich sicher, was Attributdefinition in Blockdefinition und was Attributreferenz in Blockreferenz ist? 

Allgemein: wenn Du die Definition eines Blocks (und darin die Attributsdefinition) änderst, dann ist es aber nicht sehr verwunderlich, dass beim nächsten Einfügen eines solchen Blocks die neue Attributsfarbe durchkommt.

Hast Du die Attribute in der Blockdefinition geändert, dann gibt es ja auch den Befehl _ATTSYNC, der dann die Attribute in den Blockreferenzen aktualisiert.

Lt. Deiner Angabe dürfen sich aber nicht alle Attribute auf rot stellen, bloß weil Du in einer Blockreferenz den Wert geändert hast, oder? ==> daher darfst Du aber auch nicht die Blockdefinition ändern! 

Also nimm die Blockreferenz, mit .GetAttributes holst Du daraus die Attributreferenzen, suchst nach der mit dem richtigen .TagString und änderst direkt diese Farbe.

- alfred -

PS: mach aber nach Ablauf Deines Codes ja nie mehr _ATTSYNC, sonst sind alle rot-markierten Attributreferenzen wieder zurückgesetzt!

------------------
www.hollaus.at

---

Ich werde es ausprobieren. Ich denke schon, daß ich den Unterschied zwischen Block / Blockreferenz bzw. Attribut und Attributreferenz kenne. Aber vielleicht habe ich mich verworren ausgedrückt, bzw. war es auch. Hintergrund ist der, daß in der Zeichnung, die von einem anderen (E-CAD-System) über DXF-Export reingeholt wurde, für jedes Symbol, z.B. Relaisspule, die im Original alle gleich sind, ein separater Block definiert wurde (Spule(1), Spule(2),... Spule(n). Aus diesem Grunde gibt es in der Zeichnung von jedem Block auch nur eine Referenz. Aber ich werde mich heute Nachmittag mal dran machen und meine verworrene Logik korrigieren. Über das Ergebnis werde ich dann kurz berichten.

Danke
GüSO

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

---

Hi,

>> die im Original alle gleich sind, ein separater Block definiert wurde

Ja, solche Schnittstellen liebe ich 

Wenn die Blöcke alle gleich aussehen und per Name leicht identifizieren lassen, dann wäre das gleich mal der erste Job, den ich angehen würde. Damit gibt es dann nur mehr einen Block 'Spule' und alle Spule(x) werden durch diesen ersetzt.

Beläßt Du die Struktur, dann sollte Dein Code oben eigentlich funktionieren (die Attributdefinition oder der Blockdefinition farblich ändern), es fehlt nur mehr _ATTSYNC

- alfred -

------------------
www.hollaus.at