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
  m = (ponto_final(1) - ponto_inicial(1)) / (ponto_final(0) - ponto_inicial(0))
  ' vamos calcular o coeficiente linear
  n = ponto_inicial(1) - (m * ponto_inicial(0))
  
  ' coeficiente linear menor que zero? O sinal será negativo
  If (n < 0) Then
    sinal = "-"
    n = n * -1
  End If
    
  ' mostra a equação reduzida da reta
  ThisDrawing.Utility.Prompt "Equação reduzida: y = " & _
    m & "x" & " " & sinal & " " & n
End Sub