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