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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' 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
    ' obtemos a coordenada x do vértice
    x = Format(polilinha.Coordinates(i), "0.000")
    ' obtemos a coordenada x do vértice
    y = Format(polilinha.Coordinates(i + 1), "0.000")
    ' escrevemos os valores no arquivo
    Print #1, "X = " & x; "; Y = " & y
  Next i

  ' obtemos o comprimento da polilinha
  comprimento = Format(polilinha.length, "0.000")
  Print #1, vbCrLf & "Comprimento da polilinha: " & comprimento
  Print #1, "Número de vértices: " & (UBound(coordenadas) + 1) / 2
  
  MsgBox "Os dados foram gravados com sucesso."
  
  ' fecha o arquivo
  Close (1)
Exit Sub
  
' para o caso de erro
Finalizar:
  MsgBox "Houve um erro."
End Sub