---

Hallo,

wahrscheinlich eine relativ einfache Sache, aber ich möchte in VBA die Farbe der Bauteile abfragen. Und dies nicht nach Namen, sondern nach der Bautteilnummer (also nach der Reihenfolge, in der die Bauteile eingefügt wurden).

Irgendwie so stelle ich mir das vor:

Code:

---

dim col as string
get componentcolor(1)
col = str(componencolor(1))

---

Ist sowas irgendwie möglich? Also keine MsgBox oder ähnliches, ich möchte die Farbe als String speichern.

Viele Grüße
Daio

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

---

Hat keiner irgendeine Idee? :/

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

---

Die Bitverbieger    lesen hier zwar auch mit, aber ich würde im richtigen, dem VBA-Brett, fragen.

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

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Schleife durch alle CompOccs, das sind die Komponenten in einer Baugruppe.
AssemblyComponentDefinition.Occurrences Property

Die einzelne Komponente hat die Eigenschaft Appearance. Darin ist die Darstellung/Farbe etc. enthalten.
ComponentOccurrence.Appearance Property
-> liefert ein Object der Klasse "Asset"
dieses hat wiederrum die Eigenschaft DisplayName
Asset.DisplayName Property
Ich denke, dass ist der gewünschte String.
In welcher Reihenfolge die Komponenten durchlaufen werden, kann ich nicht sagen. Das würde ich ausprobieren.

------------------
Gruß KraBBy

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

---

Hi Krabby,

danke dir für deine Tipps. Leider bekomme ich das nicht hin. Ich bekomme alle möglichen Fehlercodes, aber nie die Farbe als String. Oh man...

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

---

dann hier als Code. Lief in meinem kleinen Test durch.
Es fehlt ggf. eine Behandlung/Verarbeitung von Unterbaugruppen.

Zitat:

---

Sub ReadColorsInAsm()
' Schleife durch alle Komponenten einer Bgr
' es wird jeweils der Name der Farbdarstellung gelesen
' KraBBy 08.03.2019

    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim oOccs As ComponentOccurrences
    Set oOccs = oDoc.ComponentDefinition.Occurrences
   
    Dim oOcc As ComponentOccurrence
    Dim sColors As String
    For Each oOcc In oOccs
        sColors = sColors & ReadColorOfOcc(oOcc) & vbCrLf
    Next
   
    MsgBox sColors, , "Fertig"

End Sub

Function ReadColorOfOcc(oOcc As ComponentOccurrence) As String
' Name der Farbdarstellung lesen und zurückgeben

    Dim sName As String
    sName = oOcc.Appearance.DisplayName
   
    ReadColorOfOcc = sName 'Rückgabewert der Funktion
End Function

---

------------------
Gruß KraBBy

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

---

Moin Krabby,

funktioniert super. Vielen Dank für deine Hilfe!

Gruß
Daio

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