[求助]：简单问题请教：关于字符串替换

jinsong-liao

想将可见图层中的字符串aaa全部替换为bbb，下列语句为何不能实现，该如何修改？
(command "find" "I" "aaa" "E" "bbb" "F" "A" "")，请高手指点。先谢过！！！

梦断江南

find 不支持命令行吧

winabcd

find命令能在对话中操作，用命令提示行操作它，我找不到这样的办法。
如果你一定要用，可以这样：
(command "find")
在弹出的对话框中，你一样可以操作。

nuance

《autoliap and dcl基础篇》中的程序
(defun c:lsp_37()
(setq oldtxt (getstring t "\n输入旧字符串: "))
(setq newtxt (getstring t "\n输入新字符串: "))
(setq layn (strcase (getstring "\n输入图层: ")))
(setq ss (ssget "X" (list '(0 . "TEXT") (cons 8 layn))))
(setq oldnum (strlen oldtxt))
(setq newnum (strlen newtxt))
(setq i 0)
(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 (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)
)