文字搜索区域亮显

flyme137423

每次搜索的时候都要区域选择   ，如何做到不选择，直接区域亮显文字呢？？？;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;简易查找文本并亮显   区域查找
(defun c:wzss2 (/ stxt s1 ent ss )
(setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
(cond ((or(= stxt "S")(= stxt "s"))
        (initget"All Same")
        (setq key (getkword "\n相似全选(All)或完全匹配(Same)"))
        (if (not key)
         (setq key "Same")
        )
        (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
       )
  )
  (cond((and (= stxt "")
             (setq s1 (entsel "\n选择标记 :"))
             (setq ent (entget (car s1)))
             (= (cdr (assoc 0 ent)) "TEXT")
        )
        (redraw (car s1) 3)
        (setq stxt (cdr (assoc 1 (entget (car s1)))))
       )
)
(princ"\n选择文本的查找范围")
(if (= key "Same")
  (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat stxt)))))


  (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*")))))   




)



(if (and ss (> (sslength ss) 0))
  (progn (princ (list "\n总共找到" (sslength ss) "处"))
         (sssetfirst ss ss)
  )
)
(princ)
)

flyme137423

直接全图亮显文字，，，，不用区域选择

flyme137423

如何实现呢 ？？？/