Você está aqui: AutoCAD VBA ::: Dicas & Truques ::: Layer, Layers |
Como retornar a quantidade de layers no documento atual do AutoCAD usando AutoCAD VBAQuantidade de visualizações: 154 vezes |
Em algumas situações nós precisamos saber a quantidade de layers no desenho atual do AutoCAD. Para isso nós podemos usar a propriedade Count da coleção Layers do documento atual, acessível por meio do objeto ThisDrawing. Veja o código AutoCAD VBA completo para o exemplo: ---------------------------------------------------------------------- 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 retornar ' a quantidade de layers no desenho atual Sub ContarLayers() On Error Resume Next ' para guardar a quantidade de layers Dim quantidade As Integer ' vamos acessar a propriedade Count da coleção ' Layers do desenho atual do AutoCAD quantidade = ThisDrawing.Layers.Count ' e mostramos o resultado na janela de comando ThisDrawing.Utility.Prompt vbCrLf & "Este documento possui " _ & quantidade & " layers." End Sub Ao executar este código AutoCAD VBA nós teremos o seguinte resultado: Este documento possui 2 layers. |
![]() |
AutoCAD VBA ::: Dicas & Truques ::: Linha, Linhas, Comando LINE |
Como retornar as coordenadas iniciais e finais de uma linha no AutoCAD usando AutoCAD VBA e as propriedades StartPoint e EndPointQuantidade de visualizações: 144 vezes |
Nesta dica mostrarei como podemos usar as propriedades StartPoint e EndPoint do objeto AcadLine do AutoCAD VBA para obter e retornar as coordenadas iniciais e finais de uma linha do AutoCAD. Veja que usamos a função ThisDrawing.Utility.GetEntity para pedir para o usuário selecionar uma linha na área de desenho. Uma vez selecionada a linha nós obtemos suas coordenadas iniciais e finais usando StartPoint e EndPoint. Para finalizar nós usamos a função ThisDrawing.Utility.Prompt para exibir as coordenadas x, y e z iniciais e finais da linha na janela de comando do AutoCAD. Veja o código AutoCAD VBA completo para o exemplo: ---------------------------------------------------------------------- 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 selecionar uma linha ' na área de desenho do AutoCAD e retornar suas coordenadas ' iniciais e finais Sub CoordenadasLinha() ' vamos declarar um variável para receber a linha ' selecionada Dim linha As AcadLine ' e também a localização da linha Dim localizacao As Variant ' para guardar o ponto inicial Dim ponto_inicial As Variant ' para guardar o ponto final Dim ponto_final As Variant ' caso haja algum erro On Error Resume Next ' agora pedimos para o usuário selecionar a linha ThisDrawing.Utility.GetEntity linha, localizacao, _ "Selecione uma linha" ' vamos obter o ponto inicial da linha ponto_inicial = linha.StartPoint ' vamos obter o ponto final da linha ponto_final = linha.EndPoint ' e mostramos as coordenadas iniciais e finais da linha ThisDrawing.Utility.Prompt "As coordenadas iniciais são: X = " _ & ponto_inicial(0) & "; Y = " & ponto_inicial(1) & "; Z = " _ & ponto_inicial(2) ThisDrawing.Utility.Prompt vbCrLf & "As coordenadas finais são: X = " _ & ponto_final(0) & "; Y = " & ponto_final(1) & "; Z = " _ & ponto_final(2) End Sub Ao executar este código AutoCAD VBA nós teremos o seguinte resultado: As coordenadas iniciais são: X = 55,9523227122882; Y = 42,9870898477564; Z = 0 As coordenadas finais são: X = 116,586068002574; Y = 20,6918609035664; Z = 0 |
AutoCAD VBA ::: Dicas & Truques ::: Comprimentos, distâncias e ângulos |
Como calcular a distância entre dois pontos no AutoCAD usando AutoCAD VBAQuantidade de visualizações: 172 vezes |
Em várias situações nós precisamos calcular e retornar a distância entre dois pontos na área de desenho do AutoCAD. Esta tarefa pode ser facilmente realizada com o uso da linguagem AutoCAD VBA. Neste exemplo nós usaremos a função ThisDrawing.Utility.GetPoint() para pedir para o usuário selecionar dois pontos na área de desenho e em seguida vamos mostrar a distância entre eles. Veja o código AutoCAD VBA completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' Esta macro AutoCAD VBA demonstra como podemos ' calcular a distância entre dois pontos na área de ' desenho do AutoCAD Sub DistanciaDoisPontos() ' vamos declarar os dois pontos geométricos Dim p As Variant Dim q As Variant ' para guardar as coordenadas temporárias Dim x As Double, y As Double, z As Double ' para guardar a distância Dim distancia As Double ' vamos pedir para o usuário informar os dois pontos p = ThisDrawing.Utility.GetPoint(, vbCrLf & _ "Indique o primeiro ponto: ") q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _ "Indique o segundo ponto: ") ' agora calculamos a distância entre os dois pontos informados x = p(0) - q(0) y = p(1) - q(1) z = p(2) - q(2) distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2)) ' e mostramos o resultado MsgBox "A distância entre os dois pontos é: " & distancia End Sub Ao executar este código AutoCAD VBA nós teremos o seguinte resultado: A distância entre os dois pontos é: 64.6029 |
AutoCAD VBA ::: Dicas & Truques ::: Linha, Linhas, Comando LINE |
Como criar uma linha no AutoCAD usando Autocad VBA e a função AddLine() do objeto ModelSpaceQuantidade de visualizações: 414 vezes |
A função AddLine() do AutoCAD VBA nos permite desenhar uma linha mediante o fornecimento de um ponto inicial e um ponto final. Esta função é chamada a partir do objeto ModelSpace, que, por sua vez, está contido no objeto ThisDrawing. A função AddLine() recebe dois valores do tipo Variant, ou seja, um vetor de três elementos do tipo double, e retorna um objeto Line. Veja um código AutoCAD VBA completo no qual informamos as coordenadas x, y e z dos pontos inicial e final e desenhamos uma linha entre eles: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' Procedimento que permite desenhar uma linha entre dois pontos Sub DesenharLinhaDoisPontos() ' vamos declarar o objeto Line Dim linha As AcadLine ' o ponto inicial Dim pontoInicial(0 To 2) As Double ' o ponto final Dim pontoFinal(0 To 2) As Double ' vamos definir as coordenadas dos dois pontos. Uma boa idéia ' seria pedir para o usuário informar os pontos. Em outras dicas ' do site essa idéia é explorada pontoInicial(0) = 0: pontoInicial(1) = 0: pontoInicial(2) = 0 pontoFinal(0) = 350: pontoFinal(1) = 500: pontoFinal(2) = 0 ' e agora desenhamos a linha Set linha = ThisDrawing.ModelSpace.AddLine(pontoInicial, pontoFinal) ' e damos uma Zoom All na área de desenho ZoomAll End Sub Ao executar este código AutoCAD VBA nós teremos uma linha saindo do ponto x=0,y=0,z=0 e indo até o ponto x=350,y=500,z=0. |
Veja mais Dicas e truques de AutoCAD VBA |
Dicas e truques de outras linguagens |
Quem Somos |
![]() Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
![]() Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |