---

partbody.PNG sub-element.PNG

Hallo zusammen,

nach STP Imports kommt es je nach Ursprungssystem vor, dass die Farbe nicht dem PartBody sondern dem Sub-Element zugewiesen ist (Bilder im Anhang). Gerade in der Konzeptphase speichern wir diese STP Baugruppen gerne als CATPart ab (Bauraummodell). Die CATIA Funktion "CATProduct to CATPart" übernimmt die Farbe des PartBody und alle Bauteile werden einheitsgrau.
Ist es möglich innerhalb eines Produktes per Makro die Farbe des (letzten) Sub-Elementes auszulesen und auf den PartBody für jedes Part zu übertragen?

Mit Hilfe des Forums kam ich bisher so weit: eine Selection über alle "MechanicalFeature"s, diese in ein Array ablegt und die jeweilige Farbe ausgelesen. Kann ich diese Farbe dann direkt dem PartBody zuweisen?

Sub CATmain ()

CATIA.DisplayFileAlerts = False

Dim visProperties1 As VisProperty

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "CATPrtSearch.MechanicalFeature,all"

Dim SelElemente() As Object
ReDim SelElemente(selection1.Count) 'Groesse des Feldes setzen
For i = 1 To selection1.Count
    Set SelElemente(i) = selection1.Item(i)
    Next

Dim r, g, b

For i = 1 To UBound(SelElemente)
    selection1.Clear
    selection1.Add SelElemente(i).Value
    selection1.VisProperties.GetRealColor r, g, b

' Farbe dem PartBody zuweisen?
'    Set visPropertySet1 = selection1.VisProperties
'    visPropertySet1.SetRealColor r, g, b, 1

    Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
    visProperties1.SetRealOpacity 255,1
    selection1.Clear               
    Next

End Sub

Vielen Dank für Eure Hilfe,
Andreas

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

---

DF1_LIZENZ.png Product_Data_Filtering.png BehalteFarben.png

Habt ihr Zugriff auf die DF1 Lizenz?

Unter Infrastructure / Product Data Filtering, da kann man dann ein Allcatpart mit Farben erzeugen.

Würd' Euch das Makro ersparen 

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

---

Vielen Dank, das war mir bisher nicht bekannt  Die DF1 Lizenz ist hier verfügbar und der Export als CATPart funktioniert wie gewünscht.

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