[求助][VBA]从Excel启动AutoCAD...

Mrqq18

Dim CAD As AutoCAD.AcadApplication
...
On Error Resume Next
Set CAD = GetObject(, "AutoCAD.AcadApplication.16")
If Err <> 0 Then
    Err.Clear
    Set CAD = New AutoCAD.AcadApplication
    If Err <> 0 Then
        MsgBox "无法启动AutoCAD."
        Exit Sub
    End If
End If
代码有什么不对吗?可我就是不能成功启动CAD.但可以在系统任务栏中看到ACAD.exe的进程.

而我用createobject时就可以正常启动CAD了.

谢谢高手指教.

雪山飞狐_lzh

Set CAD = createobject("AutoCAD.AcadApplication.16")

CAD.visible=true

Mrqq18

我已声明了CAD为"AutoCAD.AcadApplication",不是可以直接用

Set CAD = New AutoCAD.AcadApplication

为CAD赋值了吗?我看Office2000的VBA参考中说是可以的.

abc123

报表转绘王，全球领先的Excel<->ACAD转化工具，简体中文版本，数万个忠实的用户。
本文来自： http://www.meclab.cn/autocad/15428.html