自动更新字段

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

属性中有一个字段
谁有VBA代码在编辑后自动更新，而不需要我不断键入regen
（2007）

Keith · 发表于 2008-4-14 13:12:49

你的意思是像这幅画一样的东西。RegenAll？？！？

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

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

Keith · 发表于 2008-4-14 13:50:32

可以使用对象反应器发送对象。更新块引用和/或属性和/或字段

Keith · 发表于 2008-4-14 14:09:32

呃…再说一遍休斯顿？

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

这是一个开始…

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
 If CommandName = "EATTEDIT"
   ThisDrawing.RegenAll
 End If
End Sub

Keith · 发表于 2008-4-14 15:15:51

你可以试试这个：

Private Sub AcadDocument_ObjectModified(ByVal acadObject As Object)
    acadObject.UpDate
End Sub

Keith · 发表于 2008-4-16 09:57:54

本人&#039；我尝试了许多修改
如果不陷入无休止的循环，任何事情都无法奏效。

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

你能贴出你想要的吗；到目前为止？

Keith · 发表于 2008-4-16 10:22:21

不幸的是，没有&#039；不行，我把它吹走
可以说，它们是上面提供的原件及其衍生产品。