VB选择集复制的问题，请指教

aiiitang

我想用VB实现从一个文件中，让用户选择需要的对象后，再复制到另一个文件中去，代码如下：
  Dim SelectExist As Boolean
   Dim SelectionSet1 As Object
   Dim DocSave As Object         '建立新的Document对象
  Dim MoSpaceSave As Object              '建立新的Model Space 对象
   
   Dim retObjects As Variant
   
      Cnt = acaddoc.SelectionSets.Count - 1
      SelectExist = False
      For i = 0 To Cnt
         If acaddoc.SelectionSets.Item(i).Name = "SavSelect" Then
            Set SelectionSet1 = acaddoc.SelectionSets.Item(i)
            SelectionSet1.Clear          '清空该选择集,其不包含任何对象
            SelectExist = True
            Exit For
         End If
      Next
      If Not SelectExist Then
         Set SelectionSet1 = acaddoc.SelectionSets.Add("SavSelect")
      End If
      SelectionSet1.SelectOnScreen
      
      Set DocSave = acadapp.Documents.Add    '新增图形文件
      DocSave.Activate                       '使新增文件为当前活动图形文件
      Set MoSpaceSave = DocSave.ModelSpace       '设MoSpaceSave为当前图形文件的模型空间
      
      retObjects = DocSave.CopyObjects(SelectionSet1)

运行后，所选择的对象不能复制到新建的文件中，不知是哪里出了问题，请各位老大指教。多谢了！

aiiitang

高手来了没有，对选择集的复制应怎么操作，能不能用CopyObjects？请高指点一下，这个问题已经困扰我几天了

aiiitang

怎么没有人理我，是这问题太幼稚了，还是这理的人太保守了？

aiiitang

原来需要把选择集中的对象先赋给对象数组，然后才能用CopyObjects。这么菜的问题怎么就没人提示一下，害得在这个问题上瞎搞了几天。太不厚道了

saga2327

楼主厚道啊

wwswwswws

还是楼主厚道

Real_King

楼主厚道啊

zzyong00

挖坟...............

sullei

这个问题太深奥了，目前还没有接触到。