将所有内容移动到自定义La

Bobzy20 · 发表于 2022-7-5 19:11:10

谢谢你的代码。我现在有这个：

................................................................................

定义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、清除图纸（-清除似乎不起作用）

Bobzy20 · 发表于 2022-7-5 19:13:56

但例程运行时出错，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
新颜色[Truecolor/COlorbook]：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个
选择对象：
输入要更改的属性
[Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]：
洛杉矶
输入新图层名称：G541-M_General lighting
输入要更改的属性
[Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]：
再生模型。
命令：擦除
选项关键字无效。
; 错误：功能已取消

.................................................. ..............................

BIGAL · 发表于 2022-7-5 19:18:51

可能需要检查ss2 not nil add（/ss ss2）

copy


(setq ss2 (ssget "X" (list (cons 0 "WIPEOUT"))))
(If (/= ss2 nil)(command "erase" ss2 ""))

Bobzy20 · 发表于 2022-7-5 19:25:10

谢谢你的帮助。

我想我会付钱给别人帮我写这整件事，因为我不能让它做我想做的事。

[编程交流] 将所有内容移动到自定义La

发表回复

精选推荐