Bom, já ouviram falar de reactor, certo? então vou apresentar um exemplo simples de um reactor que reaje aos eventos adicionar/apagar entidades do autocad. Funciona assim: temos um bloco qualquer que iremos monitorar no desenho, atualizando a quantidade dele num texto pré-selecionado, de forma automática, isto é, sem termos de editar este texto manualmente!! Isto […]
Faz tempo que não posto nada, por isso aí vai uma rotinazinha simples que usa o método MoveToTop do activex, ou seja, vla-movetotop. Na verdade é o mesmo que um draworder trazendo a entidade pra frente… mas vai servir de exemplo para quem ainda não sabe como usar safearray vera rotina… (defun movetotop (ent /
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
