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?