Como retornar a quantidade de objetos selecionados na área de desenho do AutoCAD usando AutoCAD VBA e a propriedade Count do objeto AcadSelectionSet

' Macro que permite ao usuário selecionar um ou mais
' objetos na área de desenho do AutoCAD e retorna a quantidade
' de objetos selecionados

Sub QuantObjetosSelecionados()
  ' para guardar a seleção de objetos
  Dim objetosSelecionados As AcadSelectionSet
  ' para guardar a quantidade de objetos selecionados
  Dim quantSelecionados As Integer

  ' vamos trabalhar com o desenho atual
  With ThisDrawing
    On Error Resume Next
    ' o primeiro passo é limpar a seleção atual (se houver)
    .SelectionSets("CurrentSelection").Delete
    ' agora pedimos para o usuário selecionar os objetos
    MsgBox "Selecione os objetos desejados e pressione Enter"
    ' obtemos a seleção
    Set objetosSelecionados = .SelectionSets.Add("CurrentSelection")
    ' selecionamos os objetos na tela de desenho
    objetosSelecionados.SelectOnScreen
      
    ' e agora obtemos a quantidade de objetos selecionados
    quantSelecionados = objetosSelecionados.Count
    ' e mostramos o resultado
    MsgBox "Você selecionou " & quantSelecionados & " objetos."
   End With
 End Sub