[求助][VBA]从Excel启动AutoCAD... 乐筑天下

Mrqq18 发表于 2005-12-8 12:56:00

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

Dim CAD As .AcadApplication
...
On Error Resume Next
Set CAD = GetObject(, "AutoCAD.AcadApplication.16")
If Err0 Then
Err.Clear
Set CAD = New AutoCAD.AcadApplication
If Err0 Then
MsgBox "无法启动AutoCAD."
Exit Sub
End If
End If
代码有什么不对吗?可我就是不能成功启动CAD.但可以在系统任务栏中看到ACAD.exe的进程.
而我用createobject时就可以正常启动CAD了.
谢谢高手指教.

雪山飞狐_lzh 发表于 2005-12-9 19:56:00

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

Mrqq18 发表于 2005-12-14 08:33:00

我已声明了CAD为"AutoCAD.AcadApplication",不是可以直接用
Set CAD = New AutoCAD.AcadApplication
为CAD赋值了吗?我看Office2000的VBA参考中说是可以的.

abc123 发表于 2010-7-29 09:32:00

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

页: [1]

乐筑天下's Archiver

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