[求助]請教這個程序如何讓它顯亮

ljs026

如果使它第一个选择的目标显亮？如果我只要替换一次文字，而不是批量修改，该如何修正？ ;;本程序用目标文字替换需改变的文字。可以是TEXT和属性块中的属性文字
(defun c:th1(/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt )
(princ "\n请选择复製源文字目标:")
(setq ent (nentsel))
(if (= ent nil)(setq oldval (getstring "\n请输入文字:"))
(progn
(setq ent2 ent elist (entget (car ent)) etype (cdr (assoc 0 elist))
)
(setq oldval (cdr (assoc 1 elist)))
(princ "\n ")
(princ "\n复製文字内容为: ") (princ oldval)
)
)
(setq q 9)
(while q
(princ "\n ")
(setq bltxt (nentsel "\n请选择需要替换的文字目标:"))
(if (= bltxt nil)(setq q nil)
(progn
(setq entdata (entget (car bltxt)) btxt (cdr (assoc 1 entdata)) ostr btxt)
(setq elist (entget (car bltxt)))
(setq etype (cdr (assoc 0 elist)))
;;(setq oltxt (car (assoc 1 elist)))
(setq oltxt (cdr (assoc 1 elist)))
(if (= etype "ATTRIB")
(progn
(setq pt (cadr bltxt))
(command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")
)
(progn
(setq btxt oldval)
(entmod (subst (cons 1 btxt)(assoc 1 entdata) entdata))
(if (setq bltxt (car (reverse (cadddr bltxt)))) (entupd bltxt))
))))
(princ "\n原文字为:")(princ oltxt)(princ ". 已被替换为: ")(princ oldval)(princ " .")
)
(princ)
)

ZZXXQQ

亮显的方法：(redraw 实体名 3)


取消亮显：(redraw 实体名 4)