更改对象图层颜色

DDJL · 发表于 2022-7-5 17:07:12

（定义c:cl8（/ent ln）
（while（和（setq ent（car（ENTSEL“\n选择实体：”））
（setq ln（cdr（assoc 8（entget ent）Ю）Ю）
（命令“layer”“c”“8”ln“”）
)
)

此lisp程序将选定行、文本和块的图层颜色更改为灰色。
它适用于伟大的线条和文字；但随着块的出现，它会改变创建块的图层颜色；不是块当前所在的图层颜色。
关于如何更改程序以使块当前所在的层颜色更改为灰色的任何想法。

p、我总是把我的画设置成按层着色。

BIGAL · 发表于 2022-7-5 17:27:23

如果所有块实体都绘制在层“0”上，则采用当前层颜色。

copy


(defun c:cl8 (/ ent ln)
(while (and (setq ent (car ([color=red]entsel[/color] "\nSelect Entity: ")))
(setq ln (cdr (assoc 8 (entget ent)))))
(command "layer" "c" "8" ln "")
)
)

DDJL · 发表于 2022-7-5 18:01:26

嘿BIGAL，
谢谢你的帮助。非常感谢！！！

BIGAL · 发表于 2022-7-5 18:24:57

别担心。

[编程交流] 更改对象图层颜色

发表回复

精选推荐