Como testar se uma layer existe no documento atual do AutoCAD usando AutoCAD VBA

' Esta macro AutoCAD VBA mostra como podemos
' pesquisar uma layer no documento atual do AutoCAD
Sub PesquisarLayer()
  ' nome da layer a ser pesquisada
  Dim layer_pesquisa As String
  ' para guardar a layer encontrada
  Dim layer As AcadLayer

  ' caso dê algum erro
  On Error Resume Next

  ' vamos pedir para o usuário informar o nome da layer
  ' a ser pesquisada
  layer_pesquisa = ThisDrawing.Utility.GetString(True, _
    "Nome da Layer: ")

  ' vamos verificar se a layer informada existe no documento atual
  Set layer = ThisDrawing.Layers.Item(layer_pesquisa)

  If Err <> 0 Then
    MsgBox "A layer pesquisada não foi encontrada."
  Else
    MsgBox "A layer pesquisada foi encontrada."
  End If
End Sub