[求助]AutoCAD实体，采用编程方法导入(插入)到Word?

兰州人 · 发表于 2007-8-23 16:16:00

问题提出：
在中，选中实体＋Ctrl+C，切换到Word界面，执行Ctrl+V，AutoCAD实体粘贴到Word中。在Ｗord中双击AutoCAD实体图形，AutoCAD自动启动，在AutoCAD环境中可以修改AutoCAD图形。
请教各位大侠，实现这个思路的关键语句是什么？

caiqs · 发表于 2007-8-27 07:26:00

1、在cad中调用sendcommand 发送copyclip命令
2、调用sendcommand 发送zoom o 命令
3、com方式调用word中的宏粘贴

兰州人 · 发表于 2007-8-27 12:38:00

谢谢楼上的给我提了个思路。在http://discussion.autodesk.com/thread.jspa?threadID=487522
reply is
ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

兰州人 · 发表于 2007-8-28 09:02:00

http://discussion.autodesk.com/thread.jspa?threadID=604446 Reply is:
Re: Copyclip AutoCad Entity Into Word?
I hope the sample below does what you are asking.
Gary
Public Sub Run_This_Sub_From_Acad()
Dim oWord As Word.Application
'Before execution, set reference to MS Word Object Library
'The statement you mentioned
ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf
On Error Resume Next
Set oWord = GetObject(, "Word.application")
If Err Then
Set oWord = CreateObject("Word.application")
oWord.Visible = True
oWord.Documents.Add
End If
On Error GoTo 0
oWord.Selection.Paste
End Sub
测试了一下,问题得到解决.谢谢 Gary McMaster 的解答.

sdaulj · 发表于 2011-12-24 15:34:00

好帖子，关注中，有机会与楼主交流一下，QQ13940210

[求助]AutoCAD实体，采用编程方法导入(插入)到Word?

发表回复

精选推荐