VBA如何将CAD中的图形复制到EXCEL中？--在线等。谢谢

wahf

各位大侠，请帮忙，在线等。

VBA如何将CAD中的图形复制到EXCEL中？

也就是手动做时将CAD中某区域框选后复制，然后在EXCEL中直接粘贴。

谢谢！

669423907

看看合不合适？
CAD→Excel
(defun c:exc()
(princ"\n选择要保留对象: ")
(setq ss(ssget)
ss1(ssget"X"))
(command "erase"ss1"r"ss""zoom _e)
(command "zoom""e""" "lwdisplay""0" "copyclip""all""" ".undo"4""))

wahf

VBA能实现吗，而且想把选中的区域在CAD中全视窗显示。谢谢

jingxueyun

我一直用手动实现这种操作
CAD和OFFICE是可以兼容的。
第一种方法：直接在CAD中选中对象，CTRL+C，然后在OFFICE文档中粘贴即可。粘贴后可以双击该图片，返回CAD中修改，在CAD中最大化显示后，保存再退出CAD即可。

shi

On Error Resume Next
    ThisDrawing.SelectionSets.Item("tes").Delete
        
    On Error GoTo 0
   Set SSet = ThisDrawing.SelectionSets.Add("tes")
   
    SSet.SelectOnScreen  '从屏幕选择获取取选择集
    If SSet.Count = 0 Then
      SSet.Delete
      End
    End If
    ThisDrawing.SendCommand "Zoom" & vbCr & "O" & vbCr & "p" & vbCr & vbCr '根据选择的对象，把窗口放大
ThisDrawing.SendCommand "CopyClip" & vbCr & "p" & vbCr & vbCr '复制对象到剪贴板