在WORD中调用autoCAD,打开一张autoCAD的图

cadem

我要在WORD中调用AutoCAD,打开一张autoCAD的图。
我自己试了一种方法：在WORD中的“引用”中添加对autocad的引用（AUTOCAD 2000 TYPE LIBRORY），
并编写如下程序如下：
Public Sub cad()
Dim app As AutoCAD.AcadApplication
Set app = New AutoCAD.AcadApplication
app.Visible = True
app.Documents.Open "d:\TEST.DWG"
End Sub

结果，autoCAD程序运行，但窗口不可见，在进程管理中可以找到该进程（名为acad.exe）。（系统为2000专业版）。

用“窗口隐藏”软件可以使autoCAD窗口显现。test.dwg文件显示正常。关闭“窗口隐藏”软件，autoCAD窗口也消失。但进程仍然在。

我现在实在束手无策了。请各位帮忙。其他方法或把我这方法改进使窗口显现都可以。

南子

Dim acadApp As AcadApplication
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
acadApp.Documents.Open "d:\TEST.DWG"
acadApp.Visible = True
End If

cadem

谢谢南子的出手相救。
我后来试了一下。
问题出题还是出在acadApp.Visible=ture,
应该是acadApp.application.Visible=Ture.
程序
Public Sub cad()
Dim app As AutoCAD.AcadApplication
Set app = New AutoCAD.AcadApplication
app.Application.Visible = True
app.Documents.Open "d:\TEST.DWG"
End Sub
可以运行通过，AUTOCAD显示正常。