Como percorrer os objetos selecionados na área de desenho do AutoCAD usando AutoCAD VBA e o objeto AcadSelectionSet

' Macro que permite ao usuário selecionar um ou mais
' objetos na área de desenho do AutoCAD e aplicar a cor
' azul a todos eles
 
Sub ColorirObjetosSelecionados()
  ' para guardar a seleção de objetos
  Dim objetosSelecionados As AcadSelectionSet
  ' para guardar o objeto atual
  Dim objetoAtual As AcadEntity
   
  ' estamos trabalhando com o desenho atual
  With ThisDrawing
    On Error Resume Next
    ' primeiro limpamos a seleção atual
    .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
      
    ' agora percorremos todos os objetos selecionados
    For Each objetoAtual In objetosSelecionados
      ' definimos a cor azul para o objeto atual
      objetoAtual.color = acBlue
    Next
  End With
End Sub