[求助]：如何把一个图纸上的所有颜色物体变为灰色，而我再加上的物体是有色彩的？

fkeriu

我是做电气设计的，常常拿到装修的图纸来做平面布置。
有这样的一个需求，把拿来的装修图，不论什么颜色，什么图层，都变为灰色。而我再建一个图层，加上我的东西，可以是彩色的，比较鲜明的在图纸上表现出来，供给工人施工？
我看到别的人有这样做的，但是不知道用什么方法实现的。
请给予介绍，谢谢！！！

水炮眼大大侠

阿弥陀佛,这个很简单用VBA就能解决
Sub shuipaoyan()

Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("qian")

sset.SelectOnScreen
Dim entry As AcadEntity
For Each entry In sset
entry.Color = acBlue
entry.Update
Next entry
End Sub

drfxl0

这样问题应该很简单就可以处理的
改颜色，设置自己定义的图层的颜色就可以了

fkeriu

一楼的大大侠，你说的用VBA，我不会用。
二楼的朋友，你说的意思我不明白
三楼的兄弟，是否可以说得更明白一点？是用手工选取了以后改吗？那块的颜色呢？