Como selecionar uma linha no AutoCAD e mostrar a equação da reta correspondente usando AutoCAD VBA

' Esta macro AutoCAD VBA mostra como podemos selecionar
' uma linha na área de desenho do AutoCAD e mostrar a
' equação da reta correspondente
Sub EquacaoReduzidaReta()
  ' 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 ponto inicial
  Dim ponto_inicial As Variant
  ' para guardar o ponto final
  Dim ponto_final As Variant
  ' para guardar o sinal
  Dim sinal As String
  ' para guardar o m
  Dim m As Double
  ' para guardar o n
  Dim n 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 ponto inicial da linha
  ponto_inicial = linha.StartPoint
  ' vamos obter o ponto final da linha
  ponto_final = linha.EndPoint
    
  sinal = "+"
  ' vamos calcular o coeficiente angular da reta