| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PDM System exakt anpassen an Anwenderforderungen (GAIN Collaboration,PDM,PDM System,PLM,PLM System) |
Autor
|
Thema: Farbe eines Bauteils abfragen in Baugruppe (1366 mal gelesen)
|
DaioD Mitglied Student
Beiträge: 10 Registriert: 04.02.2019
|
erstellt am: 22. Feb. 2019 10:41 <-- editieren / zitieren --> Unities abgeben:
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 |
DaioD Mitglied Student
Beiträge: 10 Registriert: 04.02.2019
|
erstellt am: 27. Feb. 2019 11:02 <-- editieren / zitieren --> Unities abgeben:
|
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11223 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 27. Feb. 2019 11:20 <-- editieren / zitieren --> Unities abgeben: Nur für DaioD
|
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 702 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 27. Feb. 2019 12:23 <-- editieren / zitieren --> Unities abgeben: Nur für DaioD
|
DaioD Mitglied Student
Beiträge: 10 Registriert: 04.02.2019
|
erstellt am: 07. Mrz. 2019 16:04 <-- editieren / zitieren --> Unities abgeben:
|
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 702 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 08. Mrz. 2019 08:50 <-- editieren / zitieren --> Unities abgeben: Nur für DaioD
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 |
DaioD Mitglied Student
Beiträge: 10 Registriert: 04.02.2019
|
erstellt am: 09. Mrz. 2019 12:30 <-- editieren / zitieren --> Unities abgeben:
|