특정문자가 포함된 문자만 선택하는 리습좀 부탁드립니다.

고수님들 이걸 찾았습니다.
수정좀 부탁 드립니다.
도면전체가 아닌
선택한 객체중에 “a”를 포함한 문자만 선택할수 있게 부탁 드립니다.

(defun c:te( / sel)
 (if (setq sel (car (entsel “n문자 선택:”)))
  (sssetfirst nil (ssget “x” (list (cons 0 “*TEXT”) (cons 1 (cdr (assoc 1 (entget sel)))))))
 )
 (princ)
)