Você está aqui: AutoCAD VBA ::: Dicas & Truques ::: Ponto, Pontos, Comando POINT |
Como criar pontos no AutoCAD usando Autocad VBA e a função AddPoint() do objeto ModelSpaceQuantidade de visualizações: 567 vezes |
|
Em várias situações, principalmente quando estamos trabalhando com topografia e desenho de estradas no AutoCAD, nós precisamos desenhar pontos individuais. Para isso nós podemos usar a função AddPoint(). A função AddPoint() do AutoCAD VBA nos permite plotar um ponto mediante o fornecimento das coordenadas x, y e z. Esta função é chamada a partir do objeto ModelSpace, que, por sua vez, está contido no objeto ThisDrawing. Note que a função AddPoint() recebe um valor do tipo Variant, ou seja, um vetor de três elementos do tipo double, e retorna um objeto Point. Veja um código AutoCAD VBA completo no qual informamos as coordenadas x, y e z de um ponto e o desenhamos na área de desenho do AutoCAD: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' Procedimento para plotar um ponto na área de desenho do AutoCAD Sub DesenharPonto() ' vamos declarar o objeto Point Dim ponto As AcadPoint ' vamos declarar as coordenadas do ponto Dim coordenadas(0 To 2) As Double ' vamos definir as coordenadas do ponto. Uma boa idéia ' seria pedir para o usuário informar o ponto. Em outras dicas ' do site essa idéia é explorada coordenadas(0) = 100: coordenadas(1) = 140: coordenadas(2) = 0 ' vamos definir o tipo do ponto SetVariable "PDMODE", 35 ' vamos definir o tamanho do ponto SetVariable "PDSIZE", 5 ' e agora desenhamos o ponto Set ponto = ThisDrawing.ModelSpace.AddPoint(coordenadas) ' e damos uma Zoom All na área de desenho ZoomAll End Sub Ao executar este código AutoCAD VBA nós teremos um ponto desenhado na área de desenho do AutoCAD, nas coordenadas x=100,y=140,z=0. Note o uso das variáveis "PDMODE" para definir o tipo do ponto e "PDSIZE" para definir o tamanho do ponto. Caso você não saiba, os valores para a variável PDMODE podem estar entre [0, 1, 2, 3, 4, 32, 33, 34, 35, 36, 64, 65, 66, 67, 68, 96, 97, 98, 99, 100] |
 Link para compartilhar na Internet ou com seus amigos: |
Veja mais Dicas e truques de AutoCAD VBA |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
