 |
|
||||
Você está aqui: AutoCAD VBA ::: Dicas & Truques ::: Linha, Linhas, Comando LINE |
Como selecionar uma linha no AutoCAD e mostrar a equação da reta correspondente usando AutoCAD VBAQuantidade de visualizações: 286 vezes |
|
Em algumas situações nós queremos posicionar pontos ou outros desenhos em cima de uma linha, ou seja, em cima de uma reta. Uma das melhores formas de fazer isso é obtendo a equação reduzida da reta e usar as coordenadas x e y correspondentes. Nesta dica eu mostro como isso pode ser feito. O primeiro passo é pedir para o usuário selecionar a linha na área de desenho do AutoCAD usando ThisDrawing.Utility.GetEntity. Em seguida nós obtemos as coordenadas iniciais e finais da linha usando as propriedades StartPoint e EndPoint do objeto AcadLine. Para finalizar nós calculamos a equação reduzida da reta e exibimos o resultado. Veja o código AutoCAD VBA completo para o exemplo: ----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' Esta macro AutoCAD VBA mostra como podemos selecionar
' uma linha na área de desenho do AutoCAD e mostrar a
' equação da reta correspondente
Sub EquacaoReduzidaReta()
' 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
' para guardar o sinal
Dim sinal As String
' para guardar o m
Dim m As Double
' para guardar o n
Dim n As Double
' 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
sinal = "+"
' vamos calcular o coeficiente angular da reta
m = (ponto_final(1) - ponto_inicial(1)) / (ponto_final(0) - ponto_inicial(0))
' vamos calcular o coeficiente linear
n = ponto_inicial(1) - (m * ponto_inicial(0))
' coeficiente linear menor que zero? O sinal será negativo
If (n < 0) Then
sinal = "-"
n = n * -1
End If
' mostra a equação reduzida da reta
ThisDrawing.Utility.Prompt "Equação reduzida: y = " & _
m & "x" & " " & sinal & " " & n
End Sub
Ao executar este código AutoCAD VBA e selecionar uma linha nós teremos um resultado parecido com: Selecione uma linha [Usuário seleciona a linha] Command: Equação reduzida: y = 0,184320572802298x + 5,60470610432443 Como forma de testar ainda mais o código, defina um valor para o x e experimente plotar um ponto na área de desenho do AutoCAD. Você verá que o ponto cai exatamente em cima da linha, ou seja, da reta que a representa. |
 Link para compartilhar na Internet ou com seus amigos: |
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: 601 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 para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- ' 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. |
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: 251 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 para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' 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: 277 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 para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' 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 |
Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais |
| Sistema domiciliar de abastecimento de água O mau uso do material empregado na construção civil é um dos maiores causadores de patologias nas obras correntes. Um engenheiro, ao projetar uma edificação, especificou que algumas tubulações de água destinadas ao combate ao incêncio deveriam ficar expostas na área da garagem do empreendimento. Visando aos critérios técnico-econômicos, qual é o material indicado para essas tubulações? A) PVC soldável. B) PVC rosqueável. C) Cobre. D) Ferro fundido. E) Aço galvanizado. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Estruturas de Aço e Madeira |
| Evolução das estruturas Até o início do século XIX os metais exerciam uma função estrutural limitada nas edificações. O aço em abundância e econômico tornou-se disponível pela primeira vez na década de 1850. Assinale a opção correta quanto aos motivos que levaram à expansão da utilização de elementos metálicos em estruturas: Selecione a resposta: A) A utilização do ferro forjado e o sentido estético da época levaram a maior utilização da estrutura metálica. B) Devido à introdução do Processo Bessemer, em que grandes quantidades de ferro podiam ser transformadas em aço, em aproximadamente 20 minutos resultando em um metal com propriedades estruturais bastante superiores ao do ferro fundido. C) A carência de profissionais capacitados, artesãos, em trabalhar a alvenaria de pedra como elemento estrutural levaram a uma mudança em termos de tecnologia estrutural, havendo a utilização da estrutura metálica em larga escala. D) O incremento da urbanização e a necessidade da rapidez na construção de casas para as pessoas que vinham para as cidades trabalhar nas fábricas levaram à larga utilização da estrutura metálica, reduzindo assim, o seu custo. E) A verticalização das cidades e a ousadia dos arquitetos e dos construtores de se construir edifícios cada vez mais altos. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em |
| Principais Normas Brasileiras para Concreto Armado A ABNT é o órgão brasileiro responsável pela normatização técnica do Brasil, o qual fornece insumos para o desenvolvimento tecnológico, por meio de normativas que buscam a qualidade em qualquer tipo de trabalho. Em se tratando da ABNT, das NBRs e do uso do concreto, assinale a alternativa que apresenta corretamente qual é a NBR que se refere ao procedimento para projeto de estruturas de concreto armado: A) NBR 6123. B) NBR 6120. C) NBR 6118. D) NBR 7187. E) NBR 8681. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais |
| Materiais empregados para instalação de água fria e esgoto Em terminais de pias e acessórios embutidos na parede, onde são rosqueadas mangueiras e conexões, é indicada a aplicação de joelhos reforçados, em que a rosca é metálica, embutida sob pressão no PVC. A identificação dessa conexão é por um anel azul em sua face. Em relação ao joelho convencional, que é todo em PVC, a vantagem é: A) estética, uma vez que a face do joelho proporciona um acabamento rente ao azulejo superior à comum. B) econômica pois elimina uma série de outros componentes e conexões. C) o sistema de engate rapido por meio de utilização de anel de vedação junto à rosca. D) o fato de que, com o joelho reforçado, o risco de acontecer trinca resultante de aperto é menor. E) que fica exposta, eliminando o encaixe na alvenaria, diferentemente das comuns. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em |
| Resistência do concreto Quando não forem feitos ensaios e não existirem dados mais precisos sobre o concreto usado na idade de 28 dias, pode-se estimar o valor do seu módulo de elasticidade utilizando como base os critérios expostos no item 8.2.8 da NBR 6118/2014 - Projeto de Estruturas de Concreto - Procedimento. Determine qual seria o módulo de elasticidade estimado para um concreto com fck = 60 MPa, considerando o uso do basalto como agregado graúdo. A) Eci = 47,4 GPa. B) Eci = 49,5 GPa. C) Eci = 49,9 GPa. D) Eci = 52,1 GPa. E) Eci = 60 GPa. Verificar Resposta Estudar Cards Todas as Questões |
Veja mais Dicas e truques de AutoCAD VBA |
Dicas e truques de outras linguagens |
|
C++ Builder - Como habilitar ou desabilitar um TEdit usando a função EnableWindow() da API do Windows usando C++ Builder Java - Exercícios Resolvidos de Java - Como converter decimal em binário em Java usando o laço while |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
