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

' 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