Como retornar o comprimento de uma linha no AutoCAD usando AutoCAD VBA e a propriedade Length do objeto AcadLine

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar seu comprimento
Sub ComprimentoLinha()
  ' vamos declarar um variável para receber a linha
  ' selecionada
  Dim linha As AcadLine
  ' e também a localização da linha
  Dim localizacao As Variant
  ' para guardar o comprimento da linha
  Dim comprimento As Double
   
  ' caso haja algum erro
  On Error Resume Next
   
  ' agora pedimos para o usuário selecionar a linha
  ThisDrawing.Utility.GetEntity linha, localizacao, _
    "Selecione uma linha"
   
  ' vamos obter o comprimento da linha
  comprimento = linha.Length
   
  ' e mostramos o resultado
  ThisDrawing.Utility.Prompt "O comprimento da linha é: " _
    & comprimento
End Sub