yanasdf789 发表于 2013-3-8 15:09:35

不同文档间 对象复制

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

Set doc1 = cadapp.Documents.Open("aa.dwg")
Set doc2 = cadapp.Documents.Add
Dim ssetobj1 As AcadSelectionSet
Set ssetobj1 = doc1.SelectionSets.Add("aa")

ssetobj1.Select acSelectionSetAll
Dim Enrycount As Integer
Enrycount = ssetobj1.Count - 1

ReDim objcollection(0 To Enrycount) As Object

Dim i As Integer
i = 0

Dim Ientity As AcadEntity
   
   For Each Ientity In doc1.ModelSpace
   
   Dim obj As Object
    Set obj = Ientity

   Set objcollection(i) = obj
   
   i = i + 1
   
'
      
   
   Next Ientity
   

Dim retObjects As Variant


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


mycad 发表于 2013-3-16 12:16:27

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

mycad 发表于 2013-3-16 12:17:29

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

陈亚娣 发表于 2013-3-28 23:28:33

顶一下!!!!!!
页: [1]
查看完整版本: 不同文档间 对象复制