[VBA程序]：雪山飞孤：请帮我看一下选择集贴中的问题

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

xueshi

老兄:copyobjects是一个数组名，不是一个有效的cad对象，当然插不进去啦！
应该插入的是copyobjects(i)

misters

我知道是怎么回事了，谢谢各位了
For j = 0 To acadselect.Count - 1
Set appendobjs(i) = acadselect.Item(i)   我这句里面的变量用错了
Next

huangxy1

谢谢了，我也刚出同样的错误。