请教关于copyobjects的问题

daneal

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

crazylsp

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

newbuser

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

wylong

2. dim object()  as  variant
   
3. Dim sset As AcadSelectionSet
   
4. ...
   
5. redim  object(0 to sset.count-1)

dim object()  as  variant<br /> Dim sset As AcadSelectionSet<br /> ...<br /> redim  object(0 to sset.count-1)