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