Como retornar a quantidade de layers no documento atual do AutoCAD usando AutoCAD VBA

' Esta macro AutoCAD VBA mostra como podemos retornar
' a quantidade de layers no desenho atual
Sub ContarLayers()
  On Error Resume Next
  ' para guardar a quantidade de layers
  Dim quantidade As Integer
  
  ' vamos acessar a propriedade Count da coleção
  ' Layers do desenho atual do AutoCAD
  quantidade = ThisDrawing.Layers.Count
  
  ' e mostramos o resultado na janela de comando
  ThisDrawing.Utility.Prompt vbCrLf & "Este documento possui " _
    & quantidade & " layers."
End Sub