文字搜索区域亮显
每次搜索的时候都要区域选择 ，如何做到不选择，直接区域亮显文字呢？？？;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;简易查找文本并亮显 区域查找
(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)
)
直接全图亮显文字，，，，不用区域选择 如何实现呢 ？？？/
页:
[1]