怎样批量修改多个CAD图中的点样式LSP源代码？怎样批量修改多个CAD图指定层（如JZD层）的文字颜色为白色？

1. 创建CHSCR命令文件

CH.SCR文件的内容是由AutoCAD的命令和响应序列所组成的ASCⅡ文件，是可在AotuCAD编辑状态下执行的文本文件。

CH.SCR包含了可在指定图形中自动重复执行命令序列。

例：把图形文件C800-01～ C800-98中的图纸编号2066DD3改变2087DD2。高层代号C13改为D24，设备型号DZ20改为C45AD。

在DOS状态下用文本编辑软件建立CH.SCR文件：

CHTEXT_all _ _2066DD3

2087DD2

CHTEXT_all _ _C13

D24〈Enter〉

CHTEXT _all _ _DZ20

C45AD〈Enter〉

PLOT〈Enter〉

〈Enter〉

〈Enter〉

其中：

_代表一个空格

〈Enter〉代表回车

CHTEXT修改图中文字的LISP程序

•AotoCAD中文字修改功能较弱，AutoCADR12.0中曾加了DDEDIT修改文字命令，但只能用鼠标器手工修改，且一次只能改一个字符串不适用程序化 *** 作。

因此，在编写SCR命令文件时我们采用了修改图中文字的LISP程序CHTEXT.LSP(其清单附后)。将其装入ACAD.LSP后，只要键入CHTEXT，就可按汉字提示使用，它一次可以修改多个字符串。

•当编写命令文件时，必须考虑每条AutoCAD命令中的所有响应和提示。命令文件中的每个空格都是有意义的，因为AotuCAD将它看作回车，所以不能随意增减。

•如果不需要输出PLT绘图文件，PLOT后面四行可以不要。

•CHSCR有两个作用：

①如果需要修改的图形文件较少，可以在ACAD中通过SCRLPT命令直接调用CH.SCR。

②可以在ACAD中通过SCRIPT命令试运行一次，看是否有错。

在ACAD命令状态下，键入以下命令即可按CH.SCR文件要求，对当前图形完成所需的修改。

Command:script

Script file:ch

当所涉及的图形文件较多时(十几个以上)，采用手动 *** 作，将每一图形文件调出来，逐一修改，效率太低。因此建议采用以下步骤，使计算机按命令自动批量修改图形文件。

2. 建立图形文件表FILE.TAB

创建完CH.SCR后，下一步应把需要修改图形文件名(.DWG)存入FILE.TAB中：

例如：

C800-01

C800-02

C800-03

C800-98

3. 编译生成CHGE.SCR文件

当具备CH.SCR(试运行正常后)和FILE.TAB文件后，就可以进行编译工作，在DOS状态下键入CHSCR〈Enter〉即开始编译，若编译出现问题，系统会给出相应的提示，编译完成后，你会发现目录中多了一个CHGE.SCR文件(自动修改图形的文本文件)。

•CHSCR.EXE：其功能是配制SCR文件格式的命令字符串并调入相关的绘图参数(源程序用C语言编写，清单附后)。

•当ACAD输出PLT文件时，如果发现有对应图形的PLT文件，将提示出是否覆盖掉它，这将引起SCRIPT命令中断运行。为此在CHSCR.EXE中，我们是这么处理的：当程序发现有相应图形的PLT文件，将自动把它删除掉，并在屏幕上显示出对应的信息。

经CHSCR.EXE所生成的CHGE.SCR文件：

open y C800-01

CHTEXT all 2066DD3

2087DD2

CHTEXT all C13

D24

CHTEXT all DZ20

C45AD

PLOT

save

open y C900-98

CHTEXT all 2066DD3

2087DD2

CHTEXT all C13

D24

CHTEXT all DZ20

C45AD

PLOT

save

quit y

4. 执行SCRIPT命令

①在ACAD中通过SCRIPT命令直接调用CHGE.SCR：

Command:script chge

②启动AutoCAD时从 *** 作系统提示符处输入以下正文：

C：acad script chge

三、程序的安装

1. 将CHTEXT.LSP装入ACAD.LSP中。

2. 用通用C++编译器将CHSCR.C编译成可执行程序CHSCR.EXE，将其拷贝到CAD可找到的目录下。

程序CHSCR.EXE适用于AutoCAD R11.0、R12.0。

bat

即批处理也是支持通配符的，其中有*

格

？

example：删除D:test

目录下所有以a开头的txt文件

1.新建一个记事本

2.在里边写如下代码

cd

D:test

del

a*.txt

3.保存后，包扩展名改为.bat就好了

我最近碰到了这个问题，已经解决，首先要下载cad病毒专杀工具，哪个都行，主要用它删除有问题的.lsp文件，用cad病毒专杀工具全盘杀毒，然后是卸载cad，重启后重新安装，如果不重新安装cad是万万不行的，这一步最关键！！就可以了，以后运行某个dwg文件的时候要注意，dwg文件所在的目录有没有*.lsp文件

---