robbin840311 发表于 2008-7-3 19:51:00

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

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

robbin840311 发表于 2008-7-5 07:55:00

本帖最后由 作者 于 2008-7-5 7:55:42 编辑 <br /><br /> <p>Private Sub AcadDocument_ObjectModified(ByVal Object As Object)<br/>&nbsp; MsgBox "对象被移动了，颜色将被改为随层", vbInformation<br/>&nbsp; Object.color = acByLayer<br/>End Sub </p><p><br/>Object.color = acByLayer这句根本就运行不了，没有错误提示，是不支持么？</p>

robbin840311 发表于 2008-7-8 08:45:00

顶一个

robbin840311 发表于 2008-7-9 11:17:00

请版主给予帮助，谢谢！

robbin840311 发表于 2008-7-10 23:57:00

ding ding ding

robbin840311 发表于 2008-7-14 17:49:00

再顶

xxxtttxxx 发表于 2008-7-14 20:32:00

试着用truecolor

robbin840311 发表于 2008-7-15 08:46:00

<p>谢谢xxxtttxxx，我使用TrueColor也不行。</p><p>我加了一个</p><p>On Error GoTo HandleErr</p><p>&nbsp;&nbsp; ......</p><p>Handle Err:</p><p>&nbsp;&nbsp; msgbox "错误：" &amp; Err.description &amp; "(" &amp; err.number &amp; ")"</p><p></p><p>提示的对话框是：</p><p>&nbsp;&nbsp; 对象已打开进行读取(-2145386418)</p><p></p><p>接下来我该怎么做？谢谢！</p><p></p><p>罗简单</p>

mccad 发表于 2008-7-15 16:57:00

<p>用AcadDocument_EndCommand事件吧。</p><p>改颜色本身也是修改，可能会重复触发修改事件。</p>

robbin840311 发表于 2008-7-16 14:11:00

<p>同意版主，我已经通过此方法实现啦。</p>
页: [1]
查看完整版本: [讨论]当文字移动时，怎么自动改变文字的颜色