Como retornar o ângulo de uma linha do AutoCAD usando AutoCAD VBA e a propriedade Angle do objeto AcadLine

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar seu ângulo
' em radianos e em graus

' para guardar o valor da constante PI
Const PI = 3.14159265459

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 ângulo em radianos
  Dim angulo_radianos As Double
  ' para guardar o ângulo em graus
  Dim angulo_graus 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 ângulo da linha em radianos
  angulo_radianos = linha.Angle
  ' vamos obter o ângulo da linha em graus
  angulo_graus = angulo_radianos * (180# / PI)
   
  ' e mostramos o resultado
  ThisDrawing.Utility.Prompt "O ângulo em radianos da linha é: " _
    & angulo_radianos
  ThisDrawing.Utility.Prompt vbCrLf & "O ângulo em graus da linha é: " _
    & angulo_graus
End Sub