乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 114|回复: 7

对象事件

[复制链接]

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-8-27 12:13:31 | 显示全部楼层 |阅读模式
好的,伙计们,我需要创建一个小vba函数。当我修改另一个文本时,这应该会导致一段文本发生变化。这是我所拥有的:
  1. Seating            Capacity                  Units
  2. TWO'S (30X30)      reactor#               usermod#

多次。不知何故,用户还必须提供一个数字来将usermod#乘以,以便反应堆知道该怎么做。只是有一个想法:在每种情况下,反应堆#总是引用相同的倍数,例如上面的usermod#x 2(每张桌子两个座位)的#将等于反应堆#。因此,我想我们可以将倍数附加到反应堆#的事件代码中?当我写作时,它开始变得更加复杂。
我只知道这样做:
  1. Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
  2. End Sub

我不知道从哪里开始。请帮忙?

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2004-8-27 12:44:52 | 显示全部楼层
你好。。。
从Visual Lisp更容易。但是从VBA也可以做到。您必须向实体添加一个 XDATA,然后从 VBA 读取这些 XDATA 并更新其他实体。
我不给你一个例子,因为我不太明白。
Meybe你放了一个图像的例子,因为我理解它。
回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-8-31 09:10:33 | 显示全部楼层
我不确定一个图像能做什么。我想做的就是让一段文字看着另一段文字,然后当这段文字改变时,这段文字就会倍增。前任。0 0.第一个0可能有与之相关的值,如4。假设给定桌子有四个座位。第二个0是用户更改为6。现在我有6张桌子,而不是0张。第一个0知道将它的值4乘以用户更改为6的数字,从而将其自身更改为24。最终结果:0 0变成24 6。我知道这将需要一些前期工作,但我可以用一个模板来处理它,并且在这些区域中只会给出数字,所以我不太关心字母字符,尽管我可以想象一些可能导致问题的实例。感谢任何帮助。谢了。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-8-31 14:11:36 | 显示全部楼层
这将是伟大的Keith,但如果你不介意的话,让我们在纯文本对象上工作。我知道这有问题,但你知道那个可怕的爆炸命令是怎么回事,但是我想我们也可以解决这个问题,不是吗?呵呵。
回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-8-31 21:56:54 | 显示全部楼层

我有一个小问题。
如果它是使用纯文本完成的,(正如keith使用xdata展示了一个很好的工作模型结构),如果正如你所提到的关于创建文本的不可知的。文本需要将 xdata 写入其中。在将文本添加到图形中时,需要解决此问题。因此,不知情的人可能会在没有任何xdata的情况下创建纯文本(或多文本)。如何避免这个问题?需要编写其他程序来创建表文本。但是用户会首先使用该程序进行创建吗?也许有,也许不是。这就是打嗝。
因此,也许属性方法可能更好一些(从某种意义上说),并添加了一个事件来检查对象是否爆炸。
对象。BeginCommand(CommandName)
哦,等一下,在测试xdata的文本时使用Keiths方法,如果没有找到xdata,则“踢用户”。打开一个新对话框以将 xdata 添加到对象(如果用户确定所选对象是正确的对象)。当然,必须选择表中的其他文本,并将xdata添加到其中。
这可能非常具有挑战性。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-8-31 22:34:08 | 显示全部楼层
谢谢大家。我要打印出Keith的伪代码,看看我能做些什么。
“踢用户”?这是一个很好的方法。也许我们可以画一张引导图,添加一大段带有用户登录名的文本,然后移动引导,直到它踢爆用户名文本?你怎么想呢?或者,也许我们让Dent的大猩猩画在调用爆炸命令时坐在用户名文本上?
回复

使用道具 举报

0

主题

27

帖子

2

银币

初来乍到

Rank: 1

铜币
27
发表于 2004-8-31 23:25:18 | 显示全部楼层
嘿,伙计们
,我刚刚阅读了这篇文章,人们可能会因为爆炸命令而痛苦。
我想知道您是否可以创建一个文档级事件来应对人员爆炸?我想如果我去参加一个图纸更换活动,我可以做些什么吗?
我现在正在将所有标题栏归因于工作,并且我确实在下拉中创建了一个选项,该选项将允许用户将属性分解为文本,它只是burst命令。
我的想法是,如果你要这样做,至少要正确地做到这
一点,那么一个反应堆会说,“你爆炸这个文本,你的电脑就会爆炸吗?然后我们可以在:)马克进行滴答作响的挥舞
回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-9-1 08:40:51 | 显示全部楼层
嗯......
Mark,你要找的反应堆是begin_command
获取该反应堆中的命令名称,如果是EXPLODE,则在VBA中设置一个全局变量来告诉end_command校长刚刚发生了爆炸。
您需要找到一种方法来确定刚刚爆炸的块名称,以便在爆炸错误的块时通知用户。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 03:36 , Processed in 1.767795 second(s), 69 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表