' 无限循环直到捕捉到进程
Dim acadApp As AcadApplication = Nothing
While acadApp Is Nothing
Try
acadApp = DirectCast(Marshal.GetActiveObject("AutoCAD.Application.17"), AcadApplication)'此处获得 AutoCAD 运行的实例
Thread.Sleep(1000)
Catch ex As Exception
' 让应用程序检查自身的消息队列，以防用于取消操作或者退出
Console.WriteLine(ex.Message)
Application.DoEvents()
End Try
End While
以上代码在32位系统中是可以得到acadApp的，但在64位系统中就不行了！！
请高人帮忙啊！
置顶卡
