[以解決]搜尋及取代文字可否能使用lisp或其他方式連續更換文字?

主要是將大陸來的圖檔簡體字更換成繁體字
在CAD中有FIND的指令可以搜尋文字及取代文字內容
但在很多個檔案下需要更換約20個字,更換的字幾乎固定
在FIND搜尋下僅能以1個字或者1句話取代
所以每個檔案都重覆相同的動作
請問大家是否有更好的方式來替換文字
CAD版本為2011

若是使用wnewcp2000.exe這程式,應該僅能在舊版本R14以下的檔案使用
當然他們也不會停留在舊版本使用,我也下載嘗試過是無法更換

印象中在2007的時候是有可加載簡轉繁或繁轉簡的附加程式CTC-STC-Convertor.arx
但僅提供在那版本才能使用,不支援其他版本使用

r14內有一文字屬性編輯程式
CHTEXT.lsp
在2000~2008都可使用
更改文字及字型等功能
但不能做簡繁轉換

感謝回覆
CHTEXT我一開始也試過
但沒我需要的繁簡轉換

貼一個程式給你參考

代碼:

(defun c:rr(/ oldtxt newtxt oldnum newnum eold ename en ss i)
    (setq ss (ssget))
    (setq i 0)
    (setq oldtxt (getstring "\nEnter old text: "))
    (setq newtxt (getstring "\nEnter new text: "))
    (setq oldnum (strlen oldtxt))
    (setq newnum (strlen newtxt))
    (repeat (sslength ss)
        (setq ename (ssname ss i))
        (setq eold (entget ename))
        (setq en (cdr (assoc 0 eold)))
        (if (= en "TEXT")
            (progn
                  (setq p 1)
                  (setq ent (assoc 1 eold))
                  (setq entxt (cdr ent))
                  (setq ennum (strlen entxt))
                  (setq aa "")
                  (while (<= p ennum)
                        (setq kk (substr entxt p oldnum))
                        (if (= kk oldtxt)
                            (progn
                              (setq kk newtxt)
                              (setq p (- (+ p oldnum) 1))
                            )
                              (setq kk (substr entxt p 1))
                        )
                        (setq aa (strcat aa kk))
                        (setq p (+ 1 p))
                  )
                (setq aa (cons 1 aa))
                (setq eold (subst aa ent eold))
                (entmod eold)
            )
        )
            (setq i (+ 1 i))
    )
)
(prompt "----------------------<< C:RR >>-----------------------")
(prin1)

感謝您回覆
在使用於單行文字上是可行的
在程式中的"TEXT"改成"MTEXT"
可改在多行文字中尋找取代
但在"MTEXT"執行上到是只能選舉要取代的文字
若全選是都不會做任何更換
這部份到是可以來修改看看
謝謝您

使用 vl-string-subst 試看看
語法
(vl-string-subst 取代字串 搜尋字串 原字串 [開始位置])

例如
(vl-string-subst "∅" "\U+2205" "直徑\U+2205100")
可以得到 "直徑∅100"