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