[求助]：能不能实现？

xiguao

在不关闭工具栏的情况下，能不能实现？

XDSoft

最初由 xiguao 发布
[B]在不关闭工具栏的情况下，能不能实现？ [/B]

您的目的是想做什么呢？

efan2000

在Document对象的ObjectModified事件中更改，因为更改层的颜色实际上就是对层的修改，而层是一个对象，所以一修改就会触发事件。下面是一个例子。

2. 
   
3.   [FONT=courier new]
   
4. Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
   
5.     If Object.ObjectName = "AcDbLayerTableRecord" Then
   
6.         SendKeys "{U}" & vbCr
   
7.     End If
   
8. End Sub
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> Private Sub AcadDocument_ObjectModified(ByVal Object As Object)<br />     If Object.ObjectName = "AcDbLayerTableRecord" Then<br />         SendKeys "{U}" & vbCr<br />     End If<br /> End Sub<br />   [/FONT]<br />