CAD 二次开发 lsp 查找文字 修改03-26

我也是转载的来处理了我的CAD问题，希望能帮助到你。最好的方法，彻底解决，问友提供，我已前也是没办法。大家可以试试下面的方法： 保证没问题，一定要细心。
①、关闭CAD（一定要先关闭正在运行的CAD程序）。
②、按F3键打开XP系统的文件搜索窗口，搜索并删除acad.lsp、acadappp.lsp和acadapp.lsp这3个文件。
注意：“搜索范围”一定要选择“本机硬盘驱动器...”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将这3个文件全部搜索清除干净。
③、复制下面的代码在CAD命令行运行，以恢复被修改的系统变量默认值：

(setvar "zoomfactor" 40)(setvar"mbuttonpan" 1)(setvar"HIGHLIGHT" 1)(setvar "fillmode" 1)

④用记事本打开CAD下的“acad.mnl”文件，将文件最后一行代码(load "acadappp")删去。(如“acad.mnl”文件中无此行代码可忽略此操作)
附：“acad.mnl”文件可以在下面的目录中，
C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD 200×\R×.×\chs\Support
其中×××是你登录系统时的用户名， 200×和R×.×分别是CAD的版本和版本代号。（注意：C:\Documents and Settings\是系统隐藏文件夹）

2、另一种解释

局域网内有一部分使用AutoCAD的电脑出现了问题。主要是二次开发的Acad软件不能正确运行了。经过研究发现：

1、在Acad安装目录下面的Support目录里面有三个文件发生了变化：

一、Acad.lisp：新建，利用AutoCAD自己加载自己所有支持路径上的acad.lsp的特性，使这个文件运行。其内容是加载acadapp.lsp文件。

二、acadapp.lsp：新建文件，是病毒的主要文件，充满了诱惑的名称。加载成功以后，在所有打开图形的路径下面建立acad.lsp文件，其作用同第一条。

三、acad.mnl:修改此文件，其作用也是加载acadapp.lsp文件。病毒会不断向这个文件尾部添加加载acadapp.lsp文件的指令。这也是一个AutoCAD一个自己加载文件。

解决方法：

1、删除support目录下面的acad.lsp和acadapp.lsp文件。

2、打开acad.mnl文件，把尾部所有带有acadapp的行去掉，保存关闭。把这个文件的属性设置为只读！

3、检查硬盘Dwg文件的所有目录，发现有acad.lsp的目录，把所有的acad.lsp文件删除掉！

是不是可以这样，使用find命令回车，然后会有下面的框

应该可以做到替换

这个构想是有意义的－－如果行得通的话，因为可以接下来续编程序段，对文字自动处理。
然而在当前的Autolisp语言中尚不能解决－－如果输入了任意一个文字而赋予一个变量（例如命名为wenzi），这个变量无法使用到上述函数中去，原因是该函数中的过滤器运用了点对，而以1开头的点对，后面的一项格式规定要用双引号引起来，如果写入一个变量，就会理解成一个字符串，而不是变量。例如，下面的第二个语句执行效果无法实现所希望的功能。因此，目前点对中不支持使用变量。
(setq wenzi (getstring "\n请输入需要寻找的文字："))
(sssetfirst nil (ssget '((0 . "TEXT,MTEXT") (1 . "wenzi"))))

而如果写成 (sssetfirst nil (ssget '((0 . "TEXT,MTEXT") (1 . "*wenzi*"))))，也等于在图形中寻找wenzi这个字符串。