Como extrair as coordenadas de uma polilinha do AutoCAD e salvar em um arquivo texto usando AutoCAD VBA

' 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
  coordenadas = polilinha.Coordinates

  ' agora percorremos as coordenadas de cada vértice
  For i = LBound(coordenadas) To UBound(coordenadas) Step 2