lgf727 发表于 2004-5-5 09:04:00

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

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

mccad 发表于 2004-5-6 07:27:00

ThisDrawing.SendCommand "CopyClip" & vbCr

lgf727 发表于 2004-5-6 08:24:00

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

mccad 发表于 2004-5-6 19:07:00

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 发表于 2004-5-8 09:52:00

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

mccad 发表于 2004-5-8 20:11:00

所以尽量不要使用SendCommand方法，如果使用尽量把它放到程序的最后面。
页: [1]
查看完整版本: 如何将实体复制到粘贴板?