Hi all,
I need to select all blocks which contains the layer named "signature" to apply following lines of codes on them:
Code:
(defun C:SetLayerBySubEntity ( / sset ndx ent subent) (setq sset (ssget '((0 . "INSERT"))))
(setq ndx 0)
(repeat (sslength sset)
(setq ent (entget (ssname sset ndx)))
(setq subent (entget (entnext (tblobjname "block" (cdr (assoc 2 ent))))))
(entmod (subst (assoc 8 subent) (assoc 8 ent) ent))
(setq ndx (1+ ndx))
)
)
In fact, I am trying to put all all of these blocks on layer "signature".
Can anyone help on this plz?