Topic: Get list of blocks that start with a number

[Rabbit]

I'm trying to get a list of all blocks in a drawing that start with a number as the first element of the block name.  And to add to the difficulty, I need the effective names of the dynamic blocks.  For the life of me, I can't figure out how to do it.  I've looked at some advanced SSGET stuff and it only makes my head spin.

Basically, I'm looking for the same thing as the pulldown list in the INSERT dialog box, but only showing the blocks that start with a number.

I'll be taking this list and putting it into the Listbox routine that LeeMac wrote to allow the user to select a block to do things with.

[Lee Mac]

Vanilla:

Code - Auto/Visual Lisp: [Select]

1. (defun _blocklist ( / def lst )
2.     (while (setq def (tblnext "BLOCK" (null def)))
3.         (if
4.             (and
5.                 (zerop (logand 4 (cdr (assoc 70 def)))) ;; Not XRef
6.                 (wcmatch (cdr (assoc 2 def)) "#*") ;; Name begins with number
7.             )
8.             (setq lst (cons (cdr (assoc 2 def)) lst))
9.         )
10.     )
11.     (vl-sort lst '<)
12. )

Visual:

Code - Auto/Visual Lisp: [Select]

1. (defun _blocklist ( / lst )
2.     (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.         (if
4.             (and
5.                 (= :vlax-false (vla-get-isxref blk))
6.                 (wcmatch (vla-get-name blk) "#*")
7.             )
8.             (setq lst (cons (vla-get-name blk) lst))
9.         )
10.     )
11.     (vl-sort lst '<)
12. )

[Rabbit]

Lee, you are my hero, again.

I never thought of using wcmatch, and apparently I need to re-look at how wcmatch can be used.  I didn't know about using # to find a number.

Thanks again,
Rabbit.

[Lee Mac]

You're entirely welcome Rabbit 

Here is a reference for wcmatch:
http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6754.htm