[讨论]当文字移动时，怎么自动改变文字的颜色

robbin840311

请问：当文字的位置发生改变时，文字怎么自动改变颜色？

robbin840311

Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
  MsgBox "对象被移动了，颜色将被改为随层", vbInformation
  Object.color = acByLayer
End Sub

Object.color = acByLayer这句根本就运行不了，没有错误提示，是不支持么？

robbin840311

顶一个

robbin840311

请版主给予帮助，谢谢！

robbin840311

ding ding ding

robbin840311

再顶

xxxtttxxx

试着用truecolor

robbin840311

谢谢xxxtttxxx，我使用TrueColor也不行。

我加了一个

On Error GoTo HandleErr

   ......

Handle Err:

   msgbox "错误：" & Err.description & "(" & err.number & ")"

提示的对话框是：

   对象已打开进行读取(-2145386418)

接下来我该怎么做？谢谢！

罗简单

mccad

用AcadDocument_EndCommand事件吧。

改颜色本身也是修改，可能会重复触发修改事件。

robbin840311

同意版主，我已经通过此方法实现啦。