---

Hallo zusammen,

wie kann ich mit VBA Layer ein- bzw. aus-schalten? Der Layer hat immer den gleichen Namen.

Danke schonmal

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

Code:

---

Sub test()

Dim Lay As AcadLayer
Dim Lays As AcadLayers

Set Lays = ThisDrawing.Layers

For Each Lay In Lays
    If Lay.Name = "Layer3" Then
        Lay.Freeze = True
        Lay.LayerOn = False
    End If
Next

End Sub

---

Gruss TP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey, super.
Danke TP

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP