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

misters · 发表于 2005-6-7 08:52:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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) · 发表于 2005-6-7 10:59:33

用CopyObjects方法

misters · 发表于 2005-6-7 11:22:35

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

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

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

wylong · 发表于 2005-6-10 13:43:37

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

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子