lisp to move blocks to their own layers based on block name

[zasanil]

Hello,

I was looking for a lisp that would take a selection set of blocks and move each block to their own individual layers while naming the new layer it creates by the block name. I tried searching for a lisp already but couldn't find one that did this.

Thanks

[hmsilva · Accepted solution]

---

@zasanil wrote:

I was looking for a lisp that would take a selection set of blocks and move each block to their own individual layers while naming the new layer it creates by the block name.

---

Something like this perhaps.

Quick and dirty...

(defun c:demo (/ blk ent hnd i name ss)
  (if (setq ss (ssget ":L" '((0 . "INSERT"))))
    (repeat (setq i (sslength ss))
      (setq hnd  (ssname ss (setq i (1- i)))
            ent  (entget hnd)
            blk  (vlax-ename->vla-object hnd)
            name (vlax-get-property
                   blk
                   (if (vlax-property-available-p blk 'EffectiveName)
                     'EffectiveName
                     'Name
                   )
                 )
      )
      (entmod (subst (cons 8 name) (assoc 8 ent) ent))
    )
  )
  (princ)
)

Hope that helps

Henrique

[zasanil]

Thats great. It worked really well.

Thanks!

[marko_ribar]

You didn't searched well...

http://www.theswamp.org/index.php?topic=47952.0

M.R.

[hmsilva]

You're welcome, Dan
Glad I could help

Henrique

[Anonymous]

Hi,

       Can i get that lisp to try or please send me any link to download.