wahf 发表于 2011-6-29 20:39:59

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

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

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

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

谢谢！

669423907 发表于 2011-6-29 21:02:34

看看合不合适？
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 发表于 2011-6-29 21:17:19

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

jingxueyun 发表于 2011-7-11 08:35:38

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

shi 发表于 2011-7-14 14:22:15

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 '复制对象到剪贴板
页: [1]
查看完整版本: VBA如何将CAD中的图形复制到EXCEL中？--在线等。谢谢