如何更改成替换文字， 而不是加在文字前

wlt179

如何更改成替换文字， 而不是加在文字前
加载后，可以在文字前加入以打开的文档名，哪位能帮我改改，能直接替换文字，而不是在前面加上文字

(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:tt        (/ cm char-A char-B)
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Group")
  (setq char-A "")
  (setq char-B (vl-filename-base  (getvar"dwgname")))
  (reptext char-A char-B)
  (command "_.UNDO" "End")
  (setvar "cmdecho" cm)
  (princ)
)

gaics

感觉你被某些代码误导了，替换个字符哪要这么复杂？

wyl219

把字符串里的什么替换成文件名?

liufii

请问楼主修改好了吗？能否分享下，最近在改大批量的图名，需求一样。