用VBA编写宏如何改变图层的颜色？

oliverhxf

用以下代码，可以修改图层的锁定、是否显示等状态，但是修改图层颜色就不行，程序运行没有报错，但是颜色就是不变，求教各位大佬改如何操作？

2. Sub test()
   
3. Dim layerNames As String
   
4. Dim entry As AcadLayer
   
5. For Each entry In ThisDrawing.Layers
   
6.     entry.TrueColor.ColorIndex = 252
   
7. Next
   
8. End Sub
   

Sub test()<br /> Dim layerNames As String<br /> Dim entry As AcadLayer<br /> For Each entry In ThisDrawing.Layers<br />     entry.TrueColor.ColorIndex = 252<br /> Next<br /> End Sub<br />