---

Hi Forum,

folgende Zeile führt bei nicht vorhandenem Layer zu einer Fehlermeldung:

    Set layerObj = ThisDrawing.Layers.item("OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_----")
    layerObj.LayerOn = False

wie muss die Befehlszeile lauten, mit der ich diesen Fehler abfange:

IF EXIST ..... (oder so ähnlich...und wie weiter?)
Vielen Dank schon mal)

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

Bernd

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

---

ich würd mir da eine kleine funktion schreiben

Public Function ExistsLayer(layer As String) As Boolean
       
    layer = UCase(layer)
    Dim n1 As AcadLayer
    For Each n1 In ThisDrawing.Layers
        If UCase(n1.Name) = UCase(layer) Then ExistsLayer = True: Exit Function
    Next

End Function

if exitslayer("OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_----") then
Set layerObj = ThisDrawing.Layers.item("OPG_-_Kosmetik---_Raum-------_--------------_Text----_035_----")
layerObj.LayerOn = False
end if

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

---

heißen dank

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

Bernd

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