Select Specific Blocks by knowing their names

[Ahmed_Hisham]

Hi all, 

 

I want to select specific block by knowing its name lets say block name "cadtutor block 1" by using (vl-catch-all-apply) method 

 

Thanks 

[Jonathan Handojo]

Um... like this?

(defun c:test nil (sssetfirst nil (ssget '((0 . "INSERT") (2 . "cadtutor block 1"))))))

 

[Ahmed_Hisham]

Thanks Jonathan that's working fine 

[pkenewell]

FWIW - Perhaps a little more complete routine for an example: Just remove the "X" from the ssget statement if you want to select items instead of searching the whole drawing.

(defun c:TEST ()
   (if (/= (setq nam (getstring T "\nEnter Name of Block: ")) "")
      (if (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 nam))))
         (progn
            (sssetfirst nil ss)
            (Princ (strcat "\nFound " (itoa (sslength ss)) " Block(s) named \"" nam "\" inserted in this drawing. "))
         )
         (princ (strcat "\n No Block name \"" nam "\" found. "))
      )
      (princ "\nNo Block Name Entered ")
   )
   (princ)
)

 

Edited November 5, 2020 by pkenewell

[BIGAL]

 

If you want just Model space

(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 nam)(cons 410 "Model"))))

current layout

(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 nam)(cons 410 (getvar 'ctab)))))