aiiitang 发表于 2011-7-26 17:16:22

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

我想用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 发表于 2011-7-27 09:20:14

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

aiiitang 发表于 2011-7-29 16:40:09

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

aiiitang 发表于 2011-8-2 09:38:41

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

saga2327 发表于 2011-8-16 15:01:08

楼主厚道啊

wwswwswws 发表于 2011-9-19 16:12:27

还是楼主厚道

Real_King 发表于 2015-3-22 18:42:30

楼主厚道啊

zzyong00 发表于 2015-3-22 21:30:35

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

sullei 发表于 2015-3-24 22:14:10

这个问题太深奥了，目前还没有接触到。
页: [1]
查看完整版本: VB选择集复制的问题，请指教