[VBA]如何设置所有对象颜色随层？

sollom

如何使所有图层中所有对象的颜色随层？

我历遍所有对象，但是速度实在太慢了，怎么才能像直接在屏幕选择对象后颜色随层那么的快捷呢？

请高手指教！

雪山飞狐_lzh

选择集＋过滤器

过滤器：-4, "<not", 62, 256, -4, "not>"

sollom

2楼兄弟的好像行不通

我过滤器设置为  -4,"<>",62,256 可行，但是一幅图里面有一半以上是不随层的，这样还是很慢。用lisp会不会比较快呢？