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

兰州人

问题提出：

在AutoCAD中，选中实体＋Ctrl+C，切换到Word界面，执行Ctrl+V，AutoCAD实体粘贴到Word中。在Ｗord中双击AutoCAD实体图形，AutoCAD自动启动，在AutoCAD环境中可以修改AutoCAD图形。

请教各位大侠，实现这个思路的关键语句是什么？

caiqs

1、在cad中调用sendcommand 发送copyclip命令

2、调用sendcommand 发送zoom o 命令

3、com方式调用word中的宏粘贴

兰州人

谢谢楼上的给我提了个思路。在http://discussion.autodesk.com/thread.jspa?threadID=487522

reply is

ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

兰州人

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

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