Como testar se duas linhas do AutoCAD são paralelas usando AutoCAD VBA e o coeficiente angular das retas

' Esta macro AutoCAD VBA mostra como podemos selecionar
' duas linhas na área de desenho do AutoCAD e informar
' se as duas linhas são paralelas ou não
Sub LinhasPararelas()
  ' vamos declarar um variável para receber as duas
  ' linhas selecionadas
  Dim linha_a As AcadLine
  Dim linha_b As AcadLine
  ' e também as localizações das linhas
  Dim localizacao_a As Variant
  Dim localizacao_b As Variant
  ' para guardar os pontos iniciais
  Dim ponto_inicial_a As Variant
  Dim ponto_inicial_b As Variant
  ' para guardar os pontos finais
  Dim ponto_final_a As Variant
  Dim ponto_final_b As Variant
  ' para guardar os coeficientes angulares
  Dim m_a As Double
  Dim m_b As Double
  
  ' caso haja algum erro
  On Error Resume Next
    
  ' agora pedimos para o usuário selecionar a primeira linha
  ThisDrawing.Utility.GetEntity linha_a, localizacao_a, _
    "Selecione a primeira linha"
  ' agora pedimos para o usuário selecionar a segunda linha
  ThisDrawing.Utility.GetEntity linha_b, localizacao_b, _
    "Selecione a segunda linha"
    
  ' vamos obter o ponto inicial da primeira linha
  ponto_inicial_a = linha_a.StartPoint