自动更新字段

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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