Como pedir para o usuário selecionar um único objeto na área de desenho do AutoCAD usando a função GetEntity do AutoCAD VBA

' Esta macro AutoCAD VBA mostra como podemos usar a função
' GetEntity para pedir para o usuário selecionar um único
' objeto na área de desenho do AutoCAD
Sub SelecionarObjeto()
  ' vamos declarar um variável para receber o objeto
  ' selecionado
  Dim objeto As AcadObject
  ' e também a localização do objeto
  Dim localizacao As Variant
  
  ' caso haja algum erro
  On Error Resume Next
  
  ' agora pedimos para o usuário selecionar o objeto
  ThisDrawing.Utility.GetEntity objeto, localizacao, _
    "Selecione um objeto"
  
  ' e mostramos o tipo de objeto que foi selecionado
  ThisDrawing.Utility.Prompt "O objeto selecionado é: " _
    & objeto.ObjectName
End Sub