VB.NET窗体程序无法获取AutoCAD 2024应用实例的问题

1. 确保项目与AutoCAD位数匹配 #

AutoCAD 2024默认是64位程序，你的VB.NET项目必须设置为x64目标平台：

• 右键项目 → 属性 → 生成 → 目标平台，选择x64，取消勾选“首选32位”。
  如果项目用Any CPU，会默认以32位运行，无法访问64位的AutoCAD COM对象，直接导致GetObject返回空。

2. 使用正确的ProgID #

AutoCAD 2024的官方COM ProgID是AutoCAD.Application.24，而非24.3（24.3是ObjectARX版本号，并非COM ProgID）。修改你的实例获取代码：

Private Function GetOrCreateAutoCADInstance() As AcadApplication
    Dim acadApp As AcadApplication = Nothing
    Try
        ' 尝试获取已运行的实例
        acadApp = DirectCast(Interaction.GetObject(Nothing, "AutoCAD.Application.24"), AcadApplication)
    Catch ex As Exception
        ' 无运行实例则创建新实例
        Try
            acadApp = DirectCast(Interaction.CreateObject("AutoCAD.Application.24"), AcadApplication)
            acadApp.Visible = True ' 强制显示AutoCAD窗口，默认可能隐藏
        Catch createEx As Exception
            MessageBox.Show($"无法创建AutoCAD实例：{createEx.Message}")
        End Try
    End Try
    Return acadApp
End Function

3. 重新注册AutoCAD COM组件 #

若COM注册损坏，会导致系统无法识别ProgID，执行以下步骤修复：

• 以管理员身份打开命令提示符；
• 切换到AutoCAD 2024安装目录（例如cd "C:\Program Files\Autodesk\AutoCAD 2024"）；
• 运行命令：acad.exe /regserver；
• 等待命令执行完成后，重启AutoCAD和你的VB.NET程序。

4. 统一运行权限 #

确保你的VB.NET程序和AutoCAD以相同权限级别运行：

• 要么都以普通用户身份启动，要么都以管理员身份启动；
• 不要混合权限运行，Windows的UAC隔离机制会阻止跨权限的COM对象访问。

5. 进程枚举替代方案 #

如果以上方法仍无效，可通过枚举AutoCAD进程获取COM实例：

Imports System.Diagnostics
Imports System.Runtime.InteropServices

<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function GetWindowThreadProcessId(hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
End Function

<DllImport("oleacc.dll")>
Private Shared Function AccessibleObjectFromWindow(hWnd As IntPtr, dwId As UInt32, ByRef riid As Guid, <Out> ByRef ppvObject As Object) As Integer
End Function

Private Function GetAutoCADFromProcess() As AcadApplication
    Dim acadApp As AcadApplication = Nothing
    Dim guid As New Guid("{00020400-0000-0000-C000-000000000046}") ' IID_IDispatch

    For Each proc As Process In Process.GetProcessesByName("acad")
        Dim hWnd As IntPtr = proc.MainWindowHandle
        If hWnd <> IntPtr.Zero Then
            Dim result As Integer = AccessibleObjectFromWindow(hWnd, &HFFFFFFF0, guid, acadApp)
            If result = 0 Then
                Exit For
            End If
        End If
    Next

    Return acadApp
End Function

使用此方法时，需确保AutoCAD窗口处于可见状态且已加载图纸。

内容的提问来源于stack exchange，提问作者George Dimitropoulos Neverent