' Esta macro AutoCAD VBA mostra como podemos selecionar uma
' polilinha na área de desenho do AutoCAD e gravar as coordenadas
' de seus vértices em um arquivo texto
Sub ExtrairCoordenadasPolilinha()
  ' para o caso de acontecer algum erro
  On Error GoTo Finalizar
  
  ' arquivo no qual vamos gravar as coordenadas
  Open "C:\\estudos_autocad_vba\\coordenadas.txt" For Output As #1
  ' para guardar a polilinha
  Dim polilinha As AcadLWPolyline
  ' para controlar o laço
  Dim i As Integer
  ' para guardar as coordenadas x e y dos vértices
  Dim x As Double, y As Double
  ' a localização do objeto na área de desenho
  Dim localizacao As Variant
  ' para guardar as coordenadas
  Dim coordenadas As Variant
  ' o comprimento da polilinha (perímetro)
  Dim comprimento As Double
 
  ' vamos pedir para o usuário selecionar a polilinha
  ThisDrawing.Utility.GetEntity polilinha, localizacao, _
    "Selecione uma polilinha"

  ' vamos obter as coordenadas da polilinha selecionada
......

' 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"
......

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