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

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

Set acadselect = acadApp.ActiveDocument.SelectionSets.Add("TEST")<BR>                                                                                       acadselect.Select acSelectionSetCrossing, minExt, maxExt<BR>


                                                                                                                       ReDim appendobjs(0 To acadselect.Count - 1) As AcadEntity<BR>                                                                                                                       <BR>                                                                                                                       For j = 0 To acadselect.Count - 1<BR>                                                                                                                                                       Set appendobjs(i) = acadselect.Item(i)<BR>                                                                                                                       Next<BR>                                                                                                                       <BR>                                                                                                                       Set doc1 = acadApp.Documents.Add("acaddocument")<BR>                                                                                                                       acadApp.Documents.CopyObjects appendobjs, doc1.ModelSpace



最后一句总提示对象不支持属性或是方法，那copyobjects怎么用啊？选择集是用坐标建立的，谁也不知道里面有什么对象，怎么用copyobjects方法呢？



<BR>

今晚打老虎 发表于 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<BR>                                                                                                                       <BR>                                                                                                                       For j = 0 To acadselect.Count - 1<BR>                                                                                                                                                       Set appendobjs(i) = acadselect.Item(i)<BR>                                                                                                                       Next<BR>                                                                                                                       <BR>                                                                                                                       Set doc1 = acadApp.Documents.Add("acaddocument")<BR>                                                                                                                       doc1.CopyObjects appendobjs               ‘这一句出错


       


快来帮我啊<BR>

efan2000 发表于 2005-6-7 19:37:00

Dim doc1 As AcadDocument<BR>Set doc1 = acadApp.Documents(acadApp.ActiveDocument.Name)<BR>Dim doc2 As AcadDocument<BR>Set doc2 = acadApp.Documents.Add("acaddocument")<BR>doc1.CopyObjects appendobjs, doc2.ModelSpace<BR>调用CopyObjects的文档，必须是包含appendobjs的文档。
页: [1]
查看完整版本: 复制选择集到另一个文档，copyobjects用法