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

misters · 发表于 2005-6-7 16:36:00

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方法呢？

今晚打老虎 · 发表于 2005-6-7 18:15:00

dim appendobjs as variant
doc1.copyobject(...

misters · 发表于 2005-6-7 18:32:00

还是不行呢？
改为如下，提示对象数组无效呢？
   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 · 发表于 2005-6-7 19:37:00

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的文档。

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

发表回复

精选推荐