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
Uma rotinazinha bem simples que quebrou um galhao outro dia: (defun c:mins2ins (/ ent elist) (vl-load-com) (if (setq ss (ssget ‘((0 . “INSERT”)))) (repeat (sslength ss) (setq ent (ssname ss 0) elist (entget ent ‘(“*”))) (foreach x ‘(44 45 70 71) (setq elist (vl-remove (assoc x elist) elist))) (entmake elist) (entdel ent) (ssdel ent ss)))
