复制选择集到另一个文档，copyobjects用法

misters

Set acadselect = acadApp.ActiveDocument.SelectionSets.Add("TEST")
acadselect.Select acSelectionSetCrossing, minExt, maxExt
ReDim appendobjs(0 To acadselect.Count - 1) As AcadEntity

For j = 0 To acadselect.Count - 1
Set appendobjs(i) = acadselect.Item(i)
Next

Set doc1 = acadApp.Documents.Add("acaddocument")
acadApp.Documents.CopyObjects appendobjs, doc1.ModelSpace 最后一句总提示对象不支持属性或是方法，那copyobjects怎么用啊？选择集是用坐标建立的，谁也不知道里面有什么对象，怎么用copyobjects方法呢？

今晚打老虎

dim appendobjs as variant


doc1.copyobject(...

misters

还是不行呢？ 改为如下，提示对象数组无效呢？ ReDim appendobjs(acadselect.Count - 1) As Variant

For j = 0 To acadselect.Count - 1
Set appendobjs(i) = acadselect.Item(i)
Next

Set doc1 = acadApp.Documents.Add("acaddocument")
doc1.CopyObjects appendobjs ‘这一句出错 快来帮我啊

efan2000

Dim doc1 As AcadDocument
Set doc1 = acadApp.Documents(acadApp.ActiveDocument.Name)
Dim doc2 As AcadDocument
Set doc2 = acadApp.Documents.Add("acaddocument")
doc1.CopyObjects appendobjs, doc2.ModelSpace
调用CopyObjects的文档，必须是包含appendobjs的文档。