[LISP程序]：查找并替换文本中的字符

czg09180274

代码如下：

(defun c:tf()
(setvar "cmdecho" 0)

(setq oldtxt (getstring t "\n 需替换的字符 :"))
(setq newtxt (getstring t "\n 修改后的字符 :"))
(setq oldnum (strlen oldtxt))
(setq newnum (strlen newtxt))
(setq i 0)
(setq wz (strcase (getstring "\n 选择文字<S>/全部<Enter> :")))
(if (= wz "")
(progn
(setq ss (ssget "x" '((0 . "TEXT,MTEXT"))))
(alltext)
)
(progn
(setq ss (ssget))
(selecttext)
)
)
(prin1)
)

(defun alltext()
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq p 1)
(setq ent (assoc 1 ssdata))
(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 (cons 1 aa))
(setq ssdata (subst aa ent ssdata))
(entmod ssdata)
(setq i (1+ i))
)
(prin1)
)

(defun selecttext ()
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstype (cdr (assoc 0 ssdata)))
(if (= sstype "TEXT")
(progn
(setq p 1)
(setq ent (assoc 1 ssdata))
(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 ssdata (subst aa ent ssdata))
(entmod ssdata)
)
)
(setq i (1+ i))
)
(prin1)
)

(prompt "\n ***<<c:tf>>***  程序设计作者：ZG*CHEN")
(prompt "\n 查找并替换文本中的字符 命令 :tf")
(prin1)

zb_lou

acad不是就有一个很强的查找替换程序：FIND吗？
这个有何不同?

雪山飞狐(lzh)

FIND很强？，我的感觉是太弱了：）

f5612140

最初由 lzh741206 发布
[B]FIND很强？，我的感觉是太弱了：） [/B]

可否具體?