Hallo Tante B,
ich hatte das gleiche Problem, nur wollte ich allen Texten und der Bemaßung den gleichen Layer zuordnen. Mit Macrorecorder und der Sprachbeschreibung habe ich dann folgendes herausgefunden. Das schöne daran ist, bei mir funktioniert es.
---------------------------------------------------------
Language="VBSCRIPT"
Sub CATMain()
CATIA.ActiveDocument.Selection.Search "Color='(0,0,255)',all"
CATIA.ActiveDocument.Selection.VisProperties.SetLayer catVisLayerBasic, 1
CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Search "Color='(255,0,0)',all"
CATIA.ActiveDocument.Selection.VisProperties.SetLayer catVisLayerBasic, 2
CATIA.ActiveDocument.Selection.Clear
End Sub
------------------------------------------------------------------
Hoffentlich klappt das bei dir auch.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP