Como contar os vértices de uma polilinha do AutoCAD usando AutoCAD VBA e a propriedade Coordinates do objeto AcadLWPolyline

----------------------------------------------------------------------
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 obter e retornar
' a quantidade de vértices de uma polilinha
Sub QuantidadeVertices()
  ' vamos declarar um variável para receber a polilinha
  ' selecionada
  Dim polilinha As AcadLWPolyline
  ' e também a localização da polilinha
  Dim localizacao As Variant
  ' a quantidade de vértices na polilinha
  Dim quantidade_vertices As Double
    
  ' caso haja algum erro
  On Error Resume Next
   
  ' agora pedimos para o usuário selecionar a polilinha
  ThisDrawing.Utility.GetEntity polilinha, localizacao, _
    "Selecione uma polilinha"
    
  ' obtemos a quantidade de vértices
  quantidade_vertices = (UBound(polilinha.Coordinates) + 1) / 2
  MsgBox "Quantidade de vértices da polilinha: " & quantidade_vertices
End Sub