如何实现不同文档间复制对象

yanasdf789

Set doc1 = cadapp.Documents.Open("F:\图幅下载管理\CAD数据\" + "097-616-11" + ".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
For i = 1 To Enrycount
   ........
Next i

怎么把 ssetobj1 集合复制到doc2?急急急

313957546

是不是可以获得doc2里文档所有图元信息后，外另一个里重画，，，很笨，或 把需要复制的图元生成块，然后插进来？

wuyunpeng888

用document对象的copyobjects方法就OK了

wuyunpeng888

如果在没有打开源文档时可以用DBX实现

hcxjr

dbx能实现？

易晨托

。net里面有copyobjects方法吗？