请教关于copyobjects的问题

daneal · 发表于 2013-1-1 12:54:00

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

crazylsp · 发表于 2013-1-1 23:08:00

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

newbuser · 发表于 2013-8-25 18:25:00

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

wylong · 发表于 2013-8-27 09:36:00

copy


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

请教关于copyobjects的问题

发表回复

精选推荐