Determine if layer already exists

[Anonymous]

Is there an equivalent to tblsearch in VBA for Autocad. If the layer exists I need to change some properties of it.

Thanks

[Anonymous]

This should do the trick:

Sub test()
Dim a
a = DoesLyrExist("0")
End Sub
Private Function DoesLyrExist(ByVal sLyrName As String) As Boolean
Dim acLyrs As AcadLayers
Dim iCnt As Integer

Set acLyrs = ThisDrawing.Layers
For iCnt = 0 To acLyrs.Count
If acLyrs(iCnt).Name = sLyrName Then
DoesLyrExist = True
Exit For
End If
Next iCnt

End Function

JR

[Anonymous]

Collections usually offer direct access to their members, so why not take
advantage of it?

Public Function LayerExists(layerName As String) As Boolean

Dim layer As AcadLayer
On Error Resume Next
Set layer = ThisDrawing.Layers(layerName)
LayerExists = (Err.Number = 0)

End Function

--
Learn to think outside the book.

http://www.acadx.com

[Anonymous]

Thanks so much. Worked grest.

[Anonymous]

Yeah,
thanks Frank.

JR