I'm trying to get this little snippit to work as part of future lisp I'm working on.
I need this part to work and I can't seem to get wcmatch to catch all layers with "door" in them.
What am I missing?
(defun c:test (/ plsel pl test1)
(setq
plsel (entsel "\nSelect: ")
pl (car plsel)
)
(setq test1 (cdr (assoc 8 (entget pl))))
(alert (strcat test1))
(if (wcmatch test1 "*DOOR*")
(alert "yes door")
(alert "no door")
)
(princ)
)
