如何获取多个CAD实例中的任意一个呢？

peggylao

本机开启了多个CAD实例,如何获取多个实例中的任意一个实例对象呢？

使用了GetObject函数，但这个函数只能获取CAD程序的第一个实例对象。

tnt1095

 Dim doc As AcadDocument
     
      For Each doc In ThisDrawing.Application.Documents
        If doc.name = "PEGGYLAO.dwg" Then
          
           doc.Activate
           doc.SendCommand "_zoom" & vbCr & "E" & vbCr
           doc.Regen acAllViewport

       end if

     next

peggylao

我的意思是本机开启了多个CAD程序进程,访问需要从CAD外部，如在VB6中使用GetObject等方法获取启动的CAD程序对象。如果本机启动了多个CAD程序进程，那个通过GetObject获取到的只是第一个启动的程序实例,我想获取当前激活的实例或者是任意一个实例,有办法实现吗？？？

NetBee

正在困扰中呀。