wild card match with blocks

I'm having a lot of difficulty with wcmatch.
I have a situation where I have a block in a drawing. One department would have to worry about it, another department will not. So I have a condition set up such that if a block with name ICON-01 exists, then do the following. If it don't exist, skip the instructions to do something else. The thing is, there also may be a block with name ICON-02, ICON-03 and so on.
So, I was hoping to do a tablsearch for ICON*, but I understand wcmatch and tblsearches don't get along well together. I did find a long way around that. Once I have the block, i wanted to set it to a variable so that I can change the properties of the block 41, 42 & 43 to a scale varialbe b_scl.

I know this is an aweful lot to ask.
Does anyone know of a real good lisp literature, from basics to advanced? I'd like to put something back into this discussion group.
Thanks all
MN

 

Hi mnash

How about:

Code:

(if (ssget "X" '((0 . "INSERT") (2 . "ICON-01")))
(DoICON-01Stuff)
(DoTheOtherStuff)
)

Cheers

 

I've already come up with that, the problem is that "2" may be ICON-02, ICON-03 and so on, can I filter out the last two characters of the name of the block? Then I need to set that block to a variable to change the scale properties, I would just like to replace them instead of going through the scale command.
Still workin' on it

 

Then how about this?

Code:

;Usage: (GetBlocks "StingToSearchFor")
;
(defun GetBlocks (StrngTxt / cnt elst enm NameList ss1)
(vl-load-com)
(setq ss1 (ssget "X" '((0 . "INSERT")))
cnt 0
)
(repeat (sslength ss1)
(setq enm (ssname ss1 cnt)
elst (entget enm)
cnt (1+ cnt)
)
(if (wcmatch (cdr (assoc 2 elst))(strcat StrngTxt "*"))   ;gets any name that begins with StrngTxt
(setq NameList (cons (cdr (assoc 2 elst)) NameList)   ;do whatever here.
)
)
)
NameList
)

Bill

 

Hi mnash

(ssget "X" '((0 . "INSERT") (2 . "ICON-##")))
'##' = two numbers
'??' = two characters
But you know then you get all matching blocks...

Cheers

 

that seems to work, now I think I can move forward.

 

Glad to help...¦-)

Cheers