Lisp to move specific blocks, by name, to a certain layer

[Darrell]

I need a lisp that will find blocks of a specific name in a drawing and move them all to a certain layer.

[ronjonp]

Give this a try, assuming they are not modified dynamic blocks.
 

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "INSERT") (2 . "YOURBLOCKNAME"))))
    (foreach e (mapcar 'cadr (ssnamex s)) (entmod (append (entget e) '((8 . "YOURLAYERNAME")))))
  )
  (princ)
)

 

[Darrell]

  On 8/8/2024 at 7:09 PM, ronjonp said:

Give this a try, assuming they are not modified dynamic blocks.
 

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "INSERT") (2 . "YOURBLOCKNAME"))))
    (foreach e (mapcar 'cadr (ssnamex s)) (entmod (append (entget e) '((8 . "YOURLAYERNAME")))))
  )
  (princ)
)

 

Expand  

Thanks I'll give it a try!

[BIGAL]

Hope you don't mind @ronjonp just added get name and layer by object.

 

(defun c:foo2 ( / s bname)
  (setq bname (cdr (assoc 2 (entget (car (entsel "\nPlease pick block for name search "))))))
  (setq lay (cdr (assoc 8 (entget (car (entsel "\nPlease pick any object for destination layer "))))))
  (if (setq s (ssget "_X" (list (cons 0 "INSERT") (cons 2 bname))))
    (foreach e (mapcar 'cadr (ssnamex s)) (entmod (append (entget e) (list (cons 8 lay)))))
  )
  (princ)
)

Can also use CHPROP on selection set s, I think the foreach may be faster though.

Edited August 9, 2024 by BIGAL