Mit diesen Code färbe ich die Flaechen oder auch Parts ein. Fläche anwählen - Makro aufrufen - fertig. Flaeche hat vordefinierte Farbe.
' Version: 1.0
' Code: CATIA CATScript
' Zweck: Einfaerben der vorgewaehlten Flaechen bzw.Parts
' Farbe: Magenta Stufenbohrungen
'CATIA.StatusBar = "CATScript, Version 1.0"
Sub CATMain ()
Dim UserSelektion As Selection
Set UserSelektion = CATIA.ActiveDocument.Selection
UserSelektion.VisProperties.SetRealColor 255, 0, 255, 1
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP