求修改BDYCAD的查找与替换程序。谢谢

psdcdr

在查找或被替换的关键词设定为任何文字（不需要用户输入），新的文字才要用户设定，有点类似于屏幕改字。谢谢!

;;;date: 2004-09-01
;;;by BDYCAD
;;;查找与替换
;;; (reptext <要找的文字> <替换成的文字>)
;;;应用举例:
;;;(SETQ char-A "DRAWING1" char-B "BDYCADCAD")
;;;(reptext char-A char-B)
;;;_______________________________________________________
(defun reptext
               (char-A          char-B    /              pc        ss
                index          ent            typeA     typeA-len        char-Alen
                char-Blen n            char-aa   newsize
               )
  (setq pc 0)
  (setq ss (ssget '((0 . "TEXT,MTEXT")))) ;选择文字
  (if ss
    (progn
      (setq index 0)
      (repeat (sslength ss)
        (setq ent (entget (ssname ss index)))
        (setq index (+ 1 index))
        (setq typeA (cdr (assoc 1 ent))) ;选择的文字内容
        (setq typeA-len (strlen typeA))        ;选择的文字内容的长度
        (setq char-Alen (strlen char-A)) ;取得要找的文字的长度
        (setq char-Blen (strlen char-B)) ;取得替换文字的长度
        (setq n 1)
        (if (= char-A "")
          (setq typeA-len 1)
        )
        (repeat        typeA-len
          (setq char-aa (substr typeA n char-Alen))
                                        ;查找选择的文字内容里是否有要被替换的文字
          (if (= char-aa char-A)
            (progn                        ;如果有
              (setq typeA (vl-string-subst char-B char-A typeA))
              (setq newsize (cons 1 typeA))
              (setq ent (subst newsize (assoc 1 ent) ent))
              (entmod ent)
              (setq pc (1+ pc))
            )
            ;;End progn
          )
          ;;End if
          (setq n (1+ n))
        )
        ;;End repeat
      )
      ;;End repeat
      (princ (strcat "\n替换了" (rtos pc) "个."))
    )
    ;;End progn
  )
  ;;End if
)
;;;_______________________________________________________
(defun c:chtext        (/ cm char-A char-B)
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Group")
  (setq char-A (getstring "\n请输入要查找的文字:"))
  (setq char-B (getstring "\n请输入新的文字:"))
  (reptext char-A char-B)
  (command "_.UNDO" "End")
  (setvar "cmdecho" cm)
  (princ)
)

xiaxiang

在查找关键词设定为任何字体（不需要用户输入），新的文字才要用户设定，有点类似于屏幕改字。谢谢!
这句话怎么理解，把字打错了吗，跟字体有啥关系？

yjr111