社区 › VB › 自动更新字段

Matersammichman 发表于 2008-4-14 13:09:46

自动更新字段

我在属性中有一个字段。
有人有VBA代码可以在编辑后自动更新，而不用我不断地输入regen吗？(2007年)
**** Hidden Message *****

Matersammichman 发表于 2008-4-14 13:12:49

你是说这幅画。丽晶所有？？！？

Keith™ 发表于 2008-4-14 13:16:34

是的，但在编辑属性/字段后，我使用什么事件使其自动运行？

Matersammichman 发表于 2008-4-14 13:50:32

可以使用对象反应器将Object.Update发送到块引用和/或属性和/或字段

deegeecees 发表于 2008-4-14 14:09:32

Uhhh...再说一遍休斯顿？

Keith™ 发表于 2008-4-14 15:06:25

这是一个开始...
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If CommandName = "EATTEDIT"
   ThisDrawing.RegenAll
End If
End Sub

Matersammichman 发表于 2008-4-14 15:15:51

你可以试试这个：
Private Sub AcadDocument_ObjectModified(ByVal acadObject As Object)
    acadObject.UpDate
End Sub

Matersammichman 发表于 2008-4-16 09:57:54

我试过许多修改
如果不陷入无休止的循环，任何方法都无法奏效。

Keith™ 发表于 2008-4-16 10:00:05

你能发布到目前为止你所拥有的吗？

deegeecees 发表于 2008-4-16 10:22:21

不幸的是，没有。
当它不起作用时，我会把它吹走。
只要说它们是上面提供的原件及其派生就足够了。

查看完整版本: 自动更新字段