如何让这个程序 实现查找到的数值亮显！

spp_wall

(defun c:www( / ss1 sslst numlst num)
   (defun ss->EnLst (ss / retu)
       (setq retu (apply 'append (ssnamex ss)))
       (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   )
   (setq K (getint "\n 最小值<1>,最大值<2>"))

  (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
  ;(setq ss1(ssget'((8 . "0")));如何实现只选择PJ图层文字查找
  (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
   (cond

      ((= K 1)(setq num (apply 'min numlst)))
      ((= K 2)(setq num (apply 'max numlst)))
      (T (setq num (apply 'min numlst)))
  )
  (princ num)
  (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置
  (setq bb (strcat "计算结果="(rtos num )""))
  (command "_text" insPt0  "0"  bb 0)
  (princ)
)


如何让这个程序实现下面的功能：
1：查找到 最大和最小值 后再图形上亮显！
2：如何实现只选择PJ图层文字查找 这样应该会快点！