 |
|
||||
Você está aqui: AutoCAD VBA ::: Dicas & Truques ::: Polyline - Polilinha |
Como contar os vértices de uma polilinha do AutoCAD usando AutoCAD VBA e a propriedade Coordinates do objeto AcadLWPolylineQuantidade de visualizações: 311 vezes |
|
Nesta dica mostrarei como podemos retornar a quantidade de vértices de uma polilinha do AutoCAD usando AutoCAD VBA. Para isso nós vamos usar a propriedade Coordinates do objeto AcadLWPolyline. O primeiro passo é pedir para o usuário selecionar uma polilinha na área de desenho do AutoCAD usando a função ThisDrawing.Utility.GetEntity. Após o usuário fazer a seleção, nós combinamos a função UBound com a propriedade Coordinates do objeto AcadLWPolyline para retornar a quantidade de vértices. Note que é sempre importante usar o comando CLOSE para fechar a polilinha (para o caso de uma polígonal fechada) antes de efetuar essa contagem, caso contrário teremos um vértice a mais. Veja o código AutoCAD VBA completo para o exemplo:
' 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, _
Ao executar este código AutoCAD VBA nós teremos um resultado parecido com: Quantidade de vértices da polilinha: 5 |
 Link para compartilhar na Internet ou com seus amigos: |
Veja mais Dicas e truques de AutoCAD VBA |
Dicas e truques de outras linguagens |
|
Delphi - Como verificar se um arquivo existe usando a função FileExists() da unit SysUtils do Delphi |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
