---

Hallo, ist es möglich, bzw. gibt es vielleicht schon eine Möglichkeit, Objektfarbe und Attributwerte innerhalb eines Blocks zu verknüpfen? So dass zum Beispiel, wenn der Attributwert=BLAU ist, dass dann die Farbe des Objekts im Block auch blau wird...Danke im Voraus für jede Info!!!  

[Diese Nachricht wurde von toXin am 12. Feb. 2007 editiert.]

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

---

Hi,

Um auf die Elemente innerhalb des Blockes zuzugreifen kannst du hier schauen.
Grundsätzlich klpappt das natürlich. Du kannst ja den Attributwert auslesen und dann die Elemente innerhalb des BLockes durchlaufen und die passende Farbe zuweisen.

Gruß, Carsten

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

---

danke!  ich kann's allerdings nicht so ganz nachvollziehen, da ich mit Code noch nciht viel zu tun hatte. Muss ich an dem Code noch was ändern/anpassen? danke nochmal

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

---

Hi,

Hast Glück. Hab heute nen guten Tag. 

Code:

---

Public Sub ATTREFCOLORBYTAGSTRING()
Dim Object As AcadObject
Dim Ausgabe As String
Dim Pickedpoint As Variant
Dim BlockRef As AcadBlockReference
On Local Error Resume Next
Ausgabe = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, Ausgabe
Set BlockRef = Object
    If BlockRef.HasAttributes Then
      Dim AttRef As AcadAttributeReference
      Dim Attributes As Variant
      Attributes = BlockRef.GetAttributes
      Dim i As Integer
      For i = LBound(Attributes) To UBound(Attributes)
          Set AttRef = Attributes(i)
          If AttRef.TagString = "BLAU" Then
            AttRef.color = acBlue
          ElseIf AttRef.TagString = "ROT" Then
            AttRef.color = acRed
          End If
      Next i
    End If
End Sub

---

Gruß, Carsten

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

---

Wow danke!

kriege allerdings einen Fehler vom Debugger:

"Fehler beim kompilieren: Argument ist nicht optional" und ".GetEntity" ist innerhalb des Codes dann markiert...Hoffe, es kostet Dich nciht zu viel Arbeit zu schauen, was daran nicht stimmen soll 

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

---

Hi,

Hab das ganze noch mal im 2006er Acad ausprobiert und bekomme keine Fehlermeldung beim Debuggen. Ich wüsste so pauschal auch nicht, woran es liegen sollte. Vielleicht hat deine Installation nen Knacks, oder falsche Verweise?! Wer weis?! 
Es handelt sich da (GetEntity) um eine Grund-Funktion vomm AutoCAD-VBA, und deswegen sollte die eigentlich immer funktionieren.

Gruß, Carsten

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