更改对象图层颜色
（定义c:cl8（/ent ln）（while（和（setq ent（car（ENTSEL“\n选择实体：”））
（setq ln（cdr（assoc 8（entget ent）Ю）Ю）
（命令“layer”“c”“8”ln“”）
)
)
此lisp程序将选定行、文本和块的图层颜色更改为灰色。
它适用于伟大的线条和文字；但随着块的出现，它会改变创建块的图层颜色；不是块当前所在的图层颜色。
关于如何更改程序以使块当前所在的层颜色更改为灰色的任何想法。
p、 我总是把我的画设置成按层着色。 如果所有块实体都绘制在层“0”上，则采用当前层颜色。
(defun c:cl8 (/ ent ln)
(while (and (setq ent (car (entsel "\nSelect Entity: ")))
(setq ln (cdr (assoc 8 (entget ent)))))
(command "layer" "c" "8" ln "")
)
)
嘿BIGAL，
谢谢你的帮助。非常感谢！！！ 别担心。
页:
[1]