Uma rotina para calcular o centro da circunferência que passa por três pontos conhecidos: expandir...
(defun get-center-3p ( p1 p2 p3 / a1 a2 m1 m2)
(setq a1 (angle p1 p2)
a2 (angle p2 p3)
m1 (polar p1 a1 (/ (distance p1 p2) 2))
m2 (polar p2 a2 (/ (distance p2 p3) 2)))
(inters m1 (polar m1 (+ a1 (/ pi 2)) 1)
m2 (polar m2 (+ a2 (/ pi 2)) 1)
nil))
útil em algumas rotinas que postarei mais adiante...(setq a1 (angle p1 p2)
a2 (angle p2 p3)
m1 (polar p1 a1 (/ (distance p1 p2) 2))
m2 (polar p2 a2 (/ (distance p2 p3) 2)))
(inters m1 (polar m1 (+ a1 (/ pi 2)) 1)
m2 (polar m2 (+ a2 (/ pi 2)) 1)
nil))
Olá Neyton.
ResponderExcluirTudo bem, vejo você sempre no site autolisp e vi que você trabalha muito com topografia e venho pedir uma ajuda, seguinte eu trabalho com autocad a alguns anos e o programa topograph tambem, mais ultimamente venho trabalhando mais com autocad, como trabalho com usinas hidreletricas e rodovias muitas vezes recebo desenhos com curvas de nivel geradas pelo topograph e pelo posição, mais como nao disponho desses programas e sempre preciso gerar perfis ou seções do certos trechos do terreno com o autocad fica meio trabalhoso, gostaria de saber se você não teria alguma rotina que gere um perfil de terreno apartir de uma linha e gere seções do terreno apartir de uma linha tambem indicando a divisão como se fosse estacas. Se não tiver poderia me dar uma mão para que eu possa desenvolver uma lisp que me ajude a deixar o trabalho um pouco mais facil.
Se puder me ajudar o meu e-mail e anderson.bonamigo@yahoo.com.br para podermos manter contato.
Obrigado
cara, ate ja fiz programa para isso, mas eram baseados em superficies do tipo 3dmesh, que no seu caso nao irá resolver muito...
ResponderExcluiresses programas nao usam as curvas de nivel para gerar tais perfis, mas sim a triangulação gerada por eles...
as curvas são apenas uma consequencia desta triangulação...
se vc dispor desta triangulação, fica mais facil programar algo neste sentido...
se você trabalha com esse tipo de coisa, considere comprar o Posicao, nao é tao caro e roda em todos os autocad alem do intelicad... ou opte pelo Civil 3d... se tiver grana, claro...
eu mesmo uso o civil 3d, pois as rotinas dele para geração de superficies, perfis etc, são excelentes...
Neyton, em primeiro lugar sempre vejo suas lisps, e seus comentarios, mas estou começando agora a trabalhar com o civil3d, e estou com dificuldade na configuração do estilo para os perfis do terreno e projeto, não consigo fazer aparecer as cotas das estacas e cota de corte/aterro na parte inferior do quadro do perfil, as cotas ficam em cima do perfil do terreno, não sei se fui claro e se voce pode me ajudar, mas desde ja agradeço.
ResponderExcluir