诊治代码错误:总不能痛快地启动CAD的原因

[复制链接]

Mrqq18

17 主题	38 帖子	4 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 106

发消息

发表于 2005-10-19 09:19:00 | 显示全部楼层 |阅读模式

我在Excel VBA用getobject 或 creatobject 启动CAD(2004),第一次总会出现错误信息,第二次才能正常,为什么?
Dim CAD as object
Private Function OpenCAD() As Boolean
OpenCAD = True
On Error Resume Next
Set CAD = GetObject(, ".Application.16")
If Err  0 Then
      Err.Clear
      Set CAD = CreateObject("AutoCAD.Application.16") 'CAD2004
      If Err  0 Then
      '-------
         Err.Clear
         Set CAD = GetObject(, "AutoCAD.Application.16.1") 'CAD2005
         If Err  0 Then
            Err.Clear
            Set CAD = CreateObject("AutoCAD.Application.16.1")
            If Err  0 Then
                  Err.Clear
                  MsgBox "无法启动CAD...", , "Mrqq"
                  OpenCAD = False
                  Exit Function
            End If
         End If
      '-------
      End If
End If
End Function

另外,如何在未打开CAD时得到其版本号?
谢谢!

使用道具举报