[VBA程序]：选择集的复制和粘贴有点问题

misters

Set acadselect = acadApp.ActiveDocument.SelectionSets.Add("TEST")
            acadselect.Select acSelectionSetCrossing, minExt, maxExt
            
            If acadselect.Count > 1 Then
                acadApp.ActiveDocument.SendCommand "select" & vbCr & minExt(0) - 15 & "," & minExt(1) - 15 & "," & minExt(2) & vbCr & maxExt(0) & "," & maxExt(1) & "," & maxExt(2) & vbCr & vbCr
                acadApp.ActiveDocument.SendCommand "copyclip" & vbCr & vbCr & vbCr
                acadApp.Documents.Add ("acaddocument")
                acadApp.ActiveDocument.SendCommand "pasteclip" & vbCr & minExt(0) - 15 & "," & minExt(1) - 15 & "," & minExt(2) & vbCr, vbCr

这种方式也可以，但是程序反很慢，有时候还得手动切换
有没有更好的办法？

再就是用add添加的这个文档，如果保存并关闭的话怎么写？
                acadApp.Documents.SaveAs "c:\" & Rnd & ".dwg"
                acadApp.Documents.Close

如果是当前文档返回到被复制对象的文档，保存粘贴文档，但它不是当前文档，这个应该怎么写啊？

雪山飞狐(lzh)

用CopyObjects方法

misters

用CopyObjects方法，我用来，出错，不知道怎么写

acadselect.Select acSelectionSetCrossing, minExt, maxExt
                   acadApp.Documents.Add ("acaddocument")
                acadApp.Documents.CopyObjects acadselect, acadApp.ActiveDocument.ModelSpace


选择集SelectionSets("TEST")应该以什么方式传递参数给copyobjects呢？应该怎么写才不会出错？

wylong

Q:选择集SelectionSets("TEST")应该以什么方式传递参数给copyobjects呢？应该怎么写才不会出错？

A:用对象数组的形式传递参数给copyobjects