如何更改成替换文字， 而不是加在文字前
如何更改成替换文字， 而不是加在文字前加载后，可以在文字前加入以打开的文档名，哪位能帮我改改，能直接替换文字，而不是在前面加上文字
(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)
)
感觉你被某些代码误导了，替换个字符哪要这么复杂？ 把字符串里的什么替换成文件名? 请问楼主修改好了吗？能否分享下，最近在改大批量的图名，需求一样。
页:
[1]