' 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, _
......

' Procedimento que permite desenhar uma linha entre dois pontos
Sub DesenharLinhaDoisPontos()
  ' vamos declarar o objeto Line
  Dim linha As AcadLine
  ' o ponto inicial
  Dim pontoInicial(0 To 2) As Double
  ' o ponto final
  Dim pontoFinal(0 To 2) As Double

  ' vamos definir as coordenadas dos dois pontos. Uma boa idéia
  ' seria pedir para o usuário informar os pontos. Em outras dicas
......

' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
......

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar suas coordenadas
' iniciais e finais
Sub CoordenadasLinha()
  ' 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
   
  ' 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"
......