社区 › VBA/VB/ActiveX/API 编程技术 › 请教关于copyobjects的问题

daneal 发表于 2013-1-1 12:54:58

请教关于copyobjects的问题

    今天在啃了一天的VBA的帮助，想实现COPYobjects的功能，即打开一个文档，拷贝其中的图形到特定文件，但是发现一个问题，复制选择集后，需要定义一个object的数组来储存选择集中的对象再复制，但在复制时这个数组不能有空值，比方说我建立了一个object（0 to 9），但我要复制的实体只有8个，那object（8），object（9）必然是空值，这样好像复制不会成功。但在复制时我并不知道选择集里有多少实体，那这个OBJECT数组我该如何建立呢？求教高手~autocad VBA的相关讨论实在太少了，请大家务必帮帮我

crazylsp 发表于 2013-1-1 23:08:30

本帖最后由 crazylsp 于 2013-1-1 23:14 编辑

dim object()asvariant
Dim sset As AcadSelectionSet
...
redim   object(0 to sset.count)

newbuser 发表于 2013-8-25 18:25:10

期待高手指教，帮您顶一下。

wylong 发表于 2013-8-27 09:36:11

dim object()asvariant
Dim sset As AcadSelectionSet
...
redimobject(0 to sset.count-1)

查看完整版本: 请教关于copyobjects的问题