不同文档间 对象复制

yanasdf789

我想实现把一个DWG 文件中的所有内容复制到当前DWG 中 BV 怎么写？

2.   Set doc1 = cadapp.Documents.Open("aa.dwg")
   
3.   Set doc2 = cadapp.Documents.Add
   
4.   Dim ssetobj1 As AcadSelectionSet
   
5.   Set ssetobj1 = doc1.SelectionSets.Add("aa")
   
6.   
   
7.   ssetobj1.Select acSelectionSetAll
   
8. Dim Enrycount As Integer
   
9. Enrycount = ssetobj1.Count - 1
   
10. 
    
11.   ReDim objcollection(0 To Enrycount) As Object
    
12.   
    
13. Dim i As Integer
    
14. i = 0
    
15. 
    
16.   Dim Ientity As AcadEntity
    
17.    
    
18.    For Each Ientity In doc1.ModelSpace
    
19.    
    
20.      Dim obj As Object
    
21.     Set obj = Ientity
    
22. 
    
23.    Set objcollection(i) = obj
    
24.    
    
25.    i = i + 1
    
26.    
    
27. '
    
28.       
    
29.    
    
30.    Next Ientity
    
31.    
    
32. 
    
33.   Dim retObjects As Variant
    
34.   
    
35.   
    
36.   retObjects = doc2.CopyObjects(objcollection) '''  提示错误 对象不在数据中，该如何修改

  Set doc1 = cadapp.Documents.Open("aa.dwg")<br />   Set doc2 = cadapp.Documents.Add<br />   Dim ssetobj1 As AcadSelectionSet<br />   Set ssetobj1 = doc1.SelectionSets.Add("aa")<br />   <br />   ssetobj1.Select acSelectionSetAll<br /> Dim Enrycount As Integer<br /> Enrycount = ssetobj1.Count - 1<br /> <br />   ReDim objcollection(0 To Enrycount) As Object<br />   <br /> Dim i As Integer<br /> i = 0<br /> <br />   Dim Ientity As AcadEntity<br />    <br />    For Each Ientity In doc1.ModelSpace<br />    <br />      Dim obj As Object<br />     Set obj = Ientity<br /> <br />    Set objcollection(i) = obj<br />    <br />    i = i + 1<br />    <br /> '<br />        <br />     <br />    Next Ientity<br />    <br /> <br />   Dim retObjects As Variant<br />   <br />   <br />   retObjects = doc2.CopyObjects(objcollection) '''  提示错误 对象不在数据中，该如何修改

retObjects = doc2.CopyObjects(objcollection) '''  提示错误 对象不在数据中，该如何修改
急 ！！！！！！！！！！！！！！！！！！！

mycad

使用编辑菜单中“复制”，在另一张图上粘贴原坐标即可，这是手工操作的

mycad

或者使用插入，再炸碎即可实现哦，这个思路程序完全可以实现的

陈亚娣

顶一下!!!!!!