Topic: Finding a block name

[hudster]

How can I search a drawing to find a particular block name?
I want to look at a drawing, see which title block is inserted as a block, and then dependant on which one is loaded run a page setup routine.

I know the dotted pair for a block is (0 . "block_name"), but how can i search for any block name ending in "sheet"?

[nivuahc]

I just threw something together yesterday that might help you out. I'll post it, along with a few suggestions, when I get to the orifice.

If you can't wait, and want to attempt to tackle it on your own, consider looking up tblnext.

[Kerry]

ssget honours wildcards, so something like ..

(setq ss (ssget "_X" '((0 . "INSERT") (2 . "*SHEET"))))

[Kerry]

.. just for the sake of completeness, if you want to be more selective ..

(setq ss1 (ssget "_X" '((0 . "INSERT") (2 . "*SHEET,*SHEET01"))))

(setq ss2 (ssget "_X" '((0 . "INSERT") (2 . "x_SHEET,y_SHEET,main_SHEET,SHEET01"))))

.. note that there are no spaces after the comma

[nivuahc]

silly me, I was going to suggest something completely different

Anyways, what I was going to suggest was a completely different approach (I didn't think Hudster was actually trying to 'select' the block).

My initial thought was to use tblnext to find out which blocks were defined in the drawing such as

Code: [Select]

(defun BuildBlockList (/ BlockItem)
  (setq BlockList nil)
  (setq BlockItem (tblnext "BLOCK" T))
 
  (while (/= BlockItem nil)
    (setq BlockList
   (append BlockList
   (list (cdr (assoc 2 BlockItem)) ;; Name
);_end list
   );_end append
  );_end setq BlockList
    (setq BlockItem (tblnext "BLOCK"))
  );_end while
 
  ;; uncomment the following block to display a list of the results
 
;;;  (mapcar
;;;    '(lambda (BlockListItem)
;;;       (princ (strcat "\n" BlockListItem))
;;;       );_end lambda
;;;    BlockList
;;;    );_end mapcar

  ;; uncomment the block above to display a list of the results
 
  (princ)
);_end defun BuildBlockList
And I was going to suggest that, instead of building a list of all blocks like above, eliminate those blocks that don't conform to your criteria.

[hudster]

ssget honours wildcards, so something like ..

(setq ss (ssget "_X" '((0 . "INSERT") (2 . "*SHEET"))))

Cool, I din't think you could use wildcards with ssget.

Thanks you guys, you always come through with an answer. Semms to me like I do a lot of asking though.

[Andrea]

you can also use...

(setq bname (tblsearch "BLOCK" "your block name"))


 

[nivuahc]

the way I understood it, the name of the particular block isn't a known factor. Only that it ends in "SHEET".

[Kerry]

you can also use...

(setq bname (tblsearch "BLOCK" "your block name"))


 

*yawn*

[Andrea]

*yawn*