读书人

怎么编程实现在word中插入AutoCAD图形

发布时间: 2012-03-24 14:00:46 作者: rapoo

如何编程实现在word中插入AutoCAD图形?
如题,困扰了好几天的问题,望高人指点。

[解决办法]
哦,看错了,是编程实现呀。
http://discussion.autodesk.com/thread.jspa?threadID=604446
Public Sub Run_This_Sub_From_Acad()

Dim oWord As Word.Application

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

读书人网 >CAD教程

热点推荐