复制选择集到另一个文档，copyobjects用法
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(... 还是不行呢？
改为如下，提示对象数组无效呢？
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 ‘这一句出错
快来帮我啊
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的文档。
页:
[1]