Topic: Delete duplicate blocks from drawing

[ELOQUINTET]

Hey,

I have looked online but have not found what I'm looking for so I came here to see if anyone has written something like this. Basically I have a bunch of blocks in a drawing and I need to delete all of the duplicates leaving me only with blocks that have unique names. Can someone help me with this? Thanks

[David Bethel]

I'd try something like this:

Code: [Select]

(defun c:eblock (/ i ss en bn bl)
  (and (setq i -1
            ss (ssget "X" '((0 . "INSERT"))))
       (while (setq en (ssname ss (setq i (1+ i))))
              (setq bn (cdr (assoc 2 (entget en))))
              (if (not (member bn bl))
                  (setq bl (cons bn bl))
                  (entdel en))))
  (prin1))

Totally untested.  -David

[CAB]

I would think you may want to:

Select Inserts to keep
Build a list of block names
ssget all inserts with those name
remove the keepers from the selection set
then entdel the remaining