对象事件
好的，伙计们，我需要创建一个小vba函数。当我修改另一个文本时，这应该会导致一段文本发生变化。这是我所拥有的：Seating Capacity Units
TWO'S (30X30) reactor# usermod#
多次。不知何故，用户还必须提供一个数字来将usermod#乘以，以便反应堆知道该怎么做。只是有一个想法：在每种情况下，反应堆#总是引用相同的倍数，例如上面的usermod#x 2（每张桌子两个座位）的#将等于反应堆#。因此，我想我们可以将倍数附加到反应堆#的事件代码中？当我写作时，它开始变得更加复杂。
我只知道这样做：
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
End Sub
我不知道从哪里开始。请帮忙？
**** Hidden Message ***** 你好。。。
从Visual Lisp更容易。但是从VBA也可以做到。您必须向实体添加一个 XDATA，然后从 VBA 读取这些 XDATA 并更新其他实体。
我不给你一个例子，因为我不太明白。
Meybe你放了一个图像的例子，因为我理解它。 我不确定一个图像能做什么。我想做的就是让一段文字看着另一段文字，然后当这段文字改变时，这段文字就会倍增。前任。0 0.第一个0可能有与之相关的值，如4。假设给定桌子有四个座位。第二个0是用户更改为6。现在我有6张桌子，而不是0张。第一个0知道将它的值4乘以用户更改为6的数字，从而将其自身更改为24。最终结果:0 0变成24 6。我知道这将需要一些前期工作，但我可以用一个模板来处理它，并且在这些区域中只会给出数字，所以我不太关心字母字符，尽管我可以想象一些可能导致问题的实例。感谢任何帮助。谢了。 这将是伟大的Keith，但如果你不介意的话，让我们在纯文本对象上工作。我知道这有问题，但你知道那个可怕的爆炸命令是怎么回事，但是我想我们也可以解决这个问题，不是吗？呵呵。
我有一个小问题。
如果它是使用纯文本完成的，（正如keith使用xdata展示了一个很好的工作模型结构），如果正如你所提到的关于创建文本的不可知的。文本需要将 xdata 写入其中。在将文本添加到图形中时，需要解决此问题。因此，不知情的人可能会在没有任何xdata的情况下创建纯文本（或多文本）。如何避免这个问题？需要编写其他程序来创建表文本。但是用户会首先使用该程序进行创建吗？也许有，也许不是。这就是打嗝。
因此，也许属性方法可能更好一些（从某种意义上说），并添加了一个事件来检查对象是否爆炸。
对象。BeginCommand（CommandName）
哦，等一下，在测试xdata的文本时使用Keiths方法，如果没有找到xdata，则“踢用户”。打开一个新对话框以将 xdata 添加到对象（如果用户确定所选对象是正确的对象）。当然，必须选择表中的其他文本，并将xdata添加到其中。
这可能非常具有挑战性。 谢谢大家。我要打印出Keith的伪代码，看看我能做些什么。
“踢用户”？这是一个很好的方法。也许我们可以画一张引导图，添加一大段带有用户登录名的文本，然后移动引导，直到它踢爆用户名文本？你怎么想呢？或者，也许我们让Dent的大猩猩画在调用爆炸命令时坐在用户名文本上？ 嘿，伙计们
，我刚刚阅读了这篇文章，人们可能会因为爆炸命令而痛苦。
我想知道您是否可以创建一个文档级事件来应对人员爆炸？我想如果我去参加一个图纸更换活动，我可以做些什么吗？
我现在正在将所有标题栏归因于工作，并且我确实在下拉中创建了一个选项，该选项将允许用户将属性分解为文本，它只是burst命令。
我的想法是，如果你要这样做，至少要正确地做到这
一点，那么一个反应堆会说，“你爆炸这个文本，你的电脑就会爆炸吗？然后我们可以在:)马克进行滴答作响的挥舞
踢 嗯......
Mark，你要找的反应堆是begin_command
获取该反应堆中的命令名称，如果是EXPLODE，则在VBA中设置一个全局变量来告诉end_command校长刚刚发生了爆炸。
您需要找到一种方法来确定刚刚爆炸的块名称，以便在爆炸错误的块时通知用户。
页:
[1]