[求助]：请教：如何选择最后一次创建的对象？

guojianguo1012 · 发表于 2006-4-24 16:35:03

您需要登录才可以下载或查看，没有账号？立即注册

×

我现在想用VBA做个小程序，其中要把最后创建的一个对象付给已定义的变量，手动输入我会，但不知道自动获取该如何实现？请高手指点一下，先谢了！

lhx2000 · 发表于 2006-4-24 17:04:23

Dim objentity As AcadEntity
Set objentity = acadDoc.ModelSpace.Item(acadDoc.ModelSpace.Count - 1) '获得最后增加的实体的句柄
objentity.Color = acRed

guojianguo1012 · 发表于 2006-4-24 17:45:58

上面的代码我试了，但提示“要求对象”，这里的对象是指那个呢？

dashan · 发表于 2006-4-24 18:15:35

你不是没有给acadDoc赋值吧

esrichen · 发表于 2006-4-24 23:22:27

Dim acaddoc As AcadDocument

Set acaddoc = ThisDrawing

看明白了吗？acaddoc就是VBA里的ThisDrawing

guojianguo1012 · 发表于 2006-4-25 08:50:40

谢谢各位，我已经弄出来了！

cxc422 · 发表于 2006-4-29 09:29:07

弱弱地问一下：上面说的句柄，可以在另一段程序中调用吗？比方说插入的时候我得到了这个句柄，但是我还设定在文件保存时会触发一个事件，在这个事件里我希望能处理上述实体，那么这个句柄能不能继续有效？

谢谢！

lhx2000 · 发表于 2006-7-6 10:19:10

可以，在事件BEGINcommand 中进行控制，当发出SAVE命令的时候进行其他操作

账号		自动登录	找回密码
密码			立即注册