Hallo an Alle !
Ich hab' schon wieder ein Problem und komme nicht weiter.
Code:
VBScript
...
Dim selection1 As Selection
Set selection1 = oDRWDoc.Selection
selection1.Clearselection1.Search "(Layer=5 + Color='(0,0,255)'),all"
Selection1.VisProperties.SetLayer catVisLayerBasic, 4
...
Eigentlich ist der Code ja in Ordnung wenn folgendes nicht wäre.
Der Layer 5, na die Elemente die dort liegen, liegen halt nicht
bei jeder Import-Datei auf Layer 5. Das Einzige was immer gleich ist ist der Layername.
Der Layer heisst immer HINTERANSICHT egal welche Nummer er hat.
Wie bekomme ich das jetzt in den Code integriert.
Ich Danke euch schon mal und hoffe es kann mir jemand helfen.
Gruß
Gaby
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP