64位系统中c#或.net 如何获得Autocad运行的实例

slw7310

            ' 无限循环直到捕捉到AutoCAD进程
            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位系统中就不行了！！
请高人帮忙啊！