................................................................................
定义c:cadqa（/ss）
（setq ss（ssget“X”（列表（cons 410“模型”）））
（命令“-layer”“M”“G541-M_General lighting”“c”7“G541-M_General lighting”“lT”“Continuous”
“G541-M_General lighting”“S”“G541-M_General lighting”“”）
（命令“chprop”ss““La”G541-M_General lighting”）
（setq doc（vla get activedocument（vlax get acad object））；打开数据库
（vlax表示块（vla get blocks doc）
（if（not（wcmatch（strcase（vla get name block）t）“*\u space*”）
（耳鼻喉阻塞的vlax
（vla put layer ent（getvar“clayer”）；当前图层
（vla put color ent 0）
（vla put线型ent“Bylayer”）
（vla put线宽ent aclnwtbyblock）
) ;_ vlax结束
) ;_ if结束
) ;_ vlax结束
（vla regen doc acactiveviewport）
（setq ss（ssget“X”（列表（cons 0“WIPEOUT”）））
（命令“erase”ss“”）
)
（cadqa）
................................................................................
只需添加：
5.删除所有层，包括任何关闭或冻结的层。
7、清除图纸（-清除似乎不起作用） 但例程运行时出错，AutoCAD文本窗口如下
................................................................................
命令：CADQA
-图层
当前层：“G541-M_通用照明”
输入选项
[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile:M
输入新层的名称（成为当前层）：
G541-M_通用照明输入选项
[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile:c
新颜色：7
输入颜色7（白色）的图层名称列表：
G541-M_通用照明输入选项
[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile]：lT
输入加载的线型名称或[？]：不断的
输入线型“Continuous”照明>：G541-M_General lighting的图层名称列表输入选项
[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile:S
输入图层名称使其成为当前或：G541-M_General lighting
输入选项
[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile]：
命令：chprop
选择对象：找到52个
选择对象：
输入要更改的属性
：
洛杉矶
输入新图层名称：G541-M_General lighting
输入要更改的属性
：
再生模型。
命令：擦除
选项关键字无效。
; 错误：功能已取消
................................................................................ 可能需要检查ss2 not nil add（/ss ss2）
(setq ss2 (ssget "X" (list (cons 0 "WIPEOUT"))))
(If (/= ss2 nil)(command "erase" ss2 ""))
谢谢你的帮助。
我想我会付钱给别人帮我写这整件事，因为我不能让它做我想做的事。
页:
1
[2]