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

wahf · 发表于 2011-6-29 20:39:00

各位大侠，请帮忙，在线等。
VBA如何将CAD中的图形复制到EXCEL中？
也就是手动做时将CAD中某区域框选后复制，然后在EXCEL中直接粘贴。
谢谢！

669423907 · 发表于 2011-6-29 21:02:00

看看合不合适？
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:00

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

jingxueyun · 发表于 2011-7-11 08:35:00

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

shi · 发表于 2011-7-14 14:22:00

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 '复制对象到剪贴板

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

发表回复

精选推荐