get-center-3p

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...

Minsert para Insert

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)))
  (
princ))

ela transforma blocos "MINSERT" (que não são afetados pelo comando explode)para "INSERT" normal