如何将实体复制到粘贴板?

lgf727

在VBA中如何将实体复制到粘贴板?不知有哪位可以指点一下?

mccad

1. ThisDrawing.SendCommand "CopyClip" & vbCr

复制代码

lgf727

谢谢指导,可我怎样将实体复制进去呢?是创建选择集还是用别的方法?试了一下法成功

mccad

2. Sub CopyToClip()
3.        Dim ss As AcadSelectionSet
4.        On Error Resume Next
5.        ThisDrawing.SelectionSets("mccad").Delete
6.        Set ss = ThisDrawing.SelectionSets.Add("mccad")
7.        ss.SelectOnScreen
8.        If ss.Count > 0 Then
9.                ThisDrawing.SendCommand "CopyClip" & vbCr & "p" & vbCr & vbCr
10.        Else
11.                ThisDrawing.SendCommand "CopyClip" & vbCr
12.        End If
13. End Sub

Sub CopyToClip()        Dim ss As AcadSelectionSet        On Error Resume Next        ThisDrawing.SelectionSets("mccad").Delete        Set ss = ThisDrawing.SelectionSets.Add("mccad")        ss.SelectOnScreen        If ss.Count > 0 Then                ThisDrawing.SendCommand "CopyClip" & vbCr & "p" & vbCr & vbCr        Else                ThisDrawing.SendCommand "CopyClip" & vbCr        End If End Sub

lgf727

用SendCommand方法时,可能这个命令还没执行完,VBA就已执行下面的语句了,所以如果进行一次复制,然后到别一个文件进行粘贴时,就会出现没东西的情况,不知大家对这种现象有什么好的处于理方法?

mccad

所以尽量不要使用SendCommand方法，如果使用尽量把它放到程序的最后面。