Block select

Hi guys,

I need a lisp that select all blocks of same name by just click on one of them

Thanks in advance

(defun c:test (/ ent)
 (if (and(setq ent (car (entsel))) (eq "INSERT" (cdr (assoc 0 (entget ent)))))
   (sssetfirst nil (ssget "_X" (list '(0 . "INSERT") (assoc 2 (entget ent))))))
 (princ))

Thanks a lot ! it works well even with dynamic blocks

Thanks a lot ! it works well even with dynamic blocks

You're welcome

Hi guys,

I need a lisp that select all blocks of same name by just click on one of them

Thanks in advance

check this one out.. works too..

http://www.cadtutor.net/forum/showpost.php?p=275746&postcount=12

check this one out.. works too..

 

http://www.cadtutor.net/forum/showpost.php?p=275746&postcount=12

Why all the code!

Why all the code!

One could almost say that to you. :wink: Well, why that one extra piece?

(defun c:test (/ ent)
 (and (setq ent (car (entsel)))
      (eq "INSERT" (cdr (assoc 0 (entget ent))))
      (sssetfirst nil (ssget "_X" (list '(0 . "INSERT") (assoc 2 (entget ent)))))
 ) ;_ and
 (princ)
) ;_ defun

One could almost say that to you. :wink: Well, why that one extra piece?...

Smarty pants

Smarty pants

You know you'd do the same.

You know you'd do the same.

very true

very true

Someone has to keep you on your toes.