---

Hallo zusammen,

es geht bei meiner Frage um Zeichnungen.

Hat es schon mal jemand geschafft, alles was eine bestimmte Farbe (RGB-Wert) hat, per Makro zu suchen und selektieren? Die Besonderheit meiner Frage: Ich möchte die zu suchende Farbe (RGB-Wert) per Klick auf ein Element festlegen können.

Catia selbst kann es ja auch, wenn man die Suche nach einer Farbe verwendet und "Farbe von Element" nutzt.

Ziel ist: man startet das Makro und wird aufgefordert ein Element der gesuchten Farbe zu selektieren. Danach startet die Suche nach allen Elementen die Übereinstimmen.

Ich finde einfach keine Lösung um das zu automatisieren.

[Diese Nachricht wurde von BjoernX am 06. Mrz. 2026 editiert.]

[Diese Nachricht wurde von BjoernX am 06. Mrz. 2026 editiert.]

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

---

Servus

Grober Ablauf:

• Userselektion starten
  
• Farbe auslesen
  
• Suche mit der Farbe ausführen

Hier ein grobes Beispiel:

Code:

---

Sub CATMain()

    Dim oSel as Selection
    Dim oDoc as Document
    Dim Status
    Dim oVisPropertySet as VisPropertySet
    Dim iRed as Integer
    Dim iBlue as Integer
    Dim iGreen as Integer
    Dim InputObjectType(0)

    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection

    'Select element to get a color
    InputObjectType(0)="AnyObject"

    Status = oSel.SelectElement2(InputObjectType,"Select colored element.", false)

    If Status <> "Normal" then Exit Sub

    Set oVisPropertySet = oSel.VisProperties

    oVisPropertySet.GetRealColor iRed, iGreen, iBlue

    'Select elements per color
    oSel.Search "Color='(" & CStr(iRed) & "," & CStr(iGreen) & "," & CStr(iBlue) & ")',all"

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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