Hallo zusammen,
ich möchte ein Makro schreiben, das die Transparenz aller Elemente wieder auf 100% bzw. Automatik stellt.
Dazu habe ich folgende Überlegungen angestellt:
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "Typ:*;Alle"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealOpacity 255,1
End Sub
Theoretisch bzw. in einer sehr kleinen Baugruppe funktioniert dies. Es wird einfach alles ausgewählt und durch SetRealOpacity 255,1 auf 100% gestellt.
Leider geht in einer großen Baugruppe die Performance schnell zugrunde, weil er auch dort anpackt wo nichts zu ändern wäre.
Ich möchte die Suche nun verfeinern, damit nur die Elemente (Produkte; Parts; Körper; Flächen...) ausgewählt werden, die NICHT auf 100% stehen, also in etwa so:
selection1.Search "Typ:*(if RealOpacity<>255);Alle"
Natürlich funktioniert das so nicht.
Kann mir da vielleicht einer helfen?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP