Little help needed with code

How can I determine if a selected block's name has the word "LITE" within
it??
What I want to do is start certain program(s) based on the name of a
selected block.

I've got multiple blocks called LITE-1, LITE-2, LITE-3, etc... and I'd like
to be able to select any one of them, then have a program run, in this case,
MyApp.

Here's my code:

Code:

(defun c:test ( / a ent obj objType)
(setq a (ssget))
(setq ent (ssname a 0))
(setq obj (entget (ssname a 0)))
(setq objType (cdr (assoc 0 obj)))
(cond
((= objType "INSERT")
(setq insName (cdr (assoc 2 obj)))
(cond
((= (strcase insName) "*LITE*")  ; this is the problem spot
(load "MyApp") (c:MyApp)
)
((= T)
(alert insName)
)
)
)
)
(princ)
)

Thanks in advance!

 

Use the wcmatch function for the comparison.

 

I would use (vl-string-search.....

Hope that helps
Tim

 

Wouldn't this work?

(ssget (list (cons 0 "INSERT")(cons 2 "LITE*")))

Don