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

yanasdf789 发表于 2013-1-29 10:59:10

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 发表于 2013-1-29 18:33:00

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

wuyunpeng888 发表于 2013-2-2 11:16:03

用document对象的copyobjects方法就OK了

wuyunpeng888 发表于 2013-2-2 11:16:36

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

hcxjr 发表于 2013-2-7 20:38:38

dbx能实现？

易晨托 发表于 2013-11-19 16:35:46

。net里面有copyobjects方法吗？

页: [1]

明经CAD社区's Archiver

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