当CAD文档比较大时，要对其一些进行一些查找替换的工作时会非常费劲，可通过以下Lisp代码来解决。（此代码来源于：http://www.xdcad.net/forum/showthread.php?postid=3450490，因无法运行，本人就简单做了修改。类似的代码可参考：http://www.cadtutor.net/forum/showthread.php?14084-Find-amp-Replace-Text/page2&s=419b0d298de4ba28971450d224f1ac8a；http://forums.augi.com/showthread.php?s=805bfed84067553b9ffb2c684187dfe4&t=30343）

具体操作为：

1>将此代码粘贴至记事本保存，修改后缀名为.lsp；

2>根据自己的作业情况，如需要修改的CAD文件所在的文件夹路径； 

3>根据要修改的文字类型，参照代码里的注释进行修改（此处可通过代码完善，但本人也对lisp语言不熟，所以未做完善）；

4>参照此加载该代码；“在AutoCAD中选择“工具”在下拉菜单中选择“Autolisp”，然后选择“加载程序”，然后选择你的××.lsp的程序在命令提示行里会显示加在成功，然后输入你程序里的命令就可以了！”

5>CAD命令行输入FR回车运行该程序，按照提示输入相应的参数值。

6>核查。

;;;( FR 源文本 目标文本 文件名) 利用ObjectDBX技术不打开DWG文件替换文本 (defun gxl-DBX-ReplaceText (SourceText TargetText DwgName / RegObjectDBX DBXModelSpace DBXDOC count ) (setq *ACAD* (vlax-get-acad-object) *AcDocument* (vla-get-activedocument *Acad*) *Model-Space* (vla-get-modelspace *AcDocument*) ) (defun RegObjectDBX (/ DBXSERVER) ;by Tony Tanzillo (cond ((vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID" ) ;_ vl-registry-read ) ((not (setq DBXSERVER (findfile "AxDb15.dll"))) (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)") ) (t (startapp "regsvr32.exe" (strcat "/s "" DBXSERVER """)) (or (vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID" ) ;_ vl-registry-read (alert "Error: Failed to register ObjectDBX ActiveX services." ) ;_ alert ) ;_ or ) ) ;_ cond ) ;_ defun (setq DwgName DwgName) (if DwgName (progn (if (= "15" (substr (getvar "acadver") 1 2)) (progn (if (not (RegObjectDBX)) (exit) ) ;_ if (setq DBXDOC (vla-getinterfaceobject *ACAD* "ObjectDBX.AxDbDocument" ) ;_ vla-getinterfaceobject ) ;_ setq ) ;_ progn (setq DBXDOC (vla-getinterfaceobject *ACAD* "ObjectDBX.AxDbDocument.16" ) ;_ vla-getinterfaceobject ) ;_ setq ) ;_ if (setq FileName (strcat (getvar "dwgprefix") (getvar "dwgname"))) (if (equal (strcase FileName) (strcase DWGNAME)) (setq DBXModelSpace *MODEL-SPACE*) ;_ setq (progn (vla-open DBXDOC DWGNAME) (setq DBXModelSpace (vla-get-ModelSpace DBXDOC)) ) ;_ progn ) ;_ if (setq count 0) ;(vlax-for for-item DBXModelSpace ;(vlax-dump-object for-item) ;(foreach itemsff for-item ;(princ itemsff) ;) ;) (vlax-for obj DBXModelSpace (if (= "AcDbMText" (vla-get-ObjectName obj)) ;此处根据文本类型修改成相应的字符串,多行文字为“AcDbMText”，单行文字为“AcDbText” (if (= SourceText (vla-Get-textString obj)) (progn (vla-put-TextString obj TargetText) (setq count (1+ count)) ) ;_ progn ) ;_ if ) ;_ if ) ;_ vlax-for (if (equal (strcase FileName) (strcase DWGNAME)) (vla-Save *AcDocument*) (vla-Saveas DBXDOC DWGNAME) ) (vlax-release-object DBXDOC) count ) ;_ progn ) ;_ if ) ;_ defun (defun c:FR (/ source Target strFolder DwgList n)(vl-load-com) (princ "\n程序编制by Gu_xl,2010年7月") (setq source (getstring "\n输入源文字:")) (setq Target (getstring "\n输入要替换的文字:")) (setq strFolder "D:/AutoCADlispTest4Find&Replace/dwgFile") ;根据实际情况修改此路径，即为需要查找替换的dwg文件所在的文件夹 (setq DwgList (VL-DIRECTORY-FILES strFolder "*.dwg" 1)) (if DwgList (progn (setq n 0) (princ "\n 正在查找替换文本，请等待...") (princ) (foreach dwg DwgList (setq Pathhh (vl-string-translate "/" "\" (strcat strFolder "/" dwg))) (setq n (+ n (gxl-DBX-ReplaceText source Target Pathhh))) (princ (strcat "\n 已完成 " Pathhh " 处文本替换")) (princ) ) ) ) )