GetObject(, "AutoCAD.Application.16")的问题?

王咣生

我同时打开几个AutoCAD 2004的窗体, 用VB调用


GetObject(, "AutoCAD.Application.16")时，怎么得到不同的AutoCAD实例,


我的问题是, 如何得到当前操作的AutoCAD应用程序对象?

莫名

默认的就是当前操作的AutoCAD应用程序对象

王咣生

GetObject方法无法区分每一个AutoCAD应用程序实例,


用VB开发AutoCAD我感觉不方便.

雪山飞狐_lzh

那就用VBA解决，VBA没有这种问题

lafare

我已经解决这个问题了，如果你会VC++的话，这很简单，如果你想用VB实现的话，代码看起来也不难，不过理解起来你可能会摸不着头的，给你个代码看看：

我可是抱着微软VB开发小组的Matthew Curland写的Advanced visual baisc 6英文版苦读半年的结果（结果我从英盲已经发展到可以过六级的地步了），当然下面的代码是不能运行的，要想运行就也读半年的书再说吧，这对你们有好处。看看MSDN也会对你有帮助的。

Private Sub Form_Load()
    Dim oROT As IRunningObjectTable
    Dim oEnmMk As IEnumMoniker
    Dim oMK As IMoniker
    Dim oBC As IBindCtx
    Dim lPtr As Long
    Dim sName As String
    Dim obj As Object
    Dim oCadApp As AcadApplication
    Dim j As AcadDocument
   
    Set oROT = GetRunningObjectTable
    Set oBC = CreateBindCtx
    Set oEnmMk = oROT.EnumRunning
   
    Do While oEnmMk.Next(1, oMK) = 0
        Set obj = oROT.GetObject(oMK)
        
        If TypeOf obj Is AcadDocument Then
               Set j = obj
                Debug.Print j.Name
          End If
    Loop
   
    Set oROT = Nothing
End Sub

MJTD_7777

直接用不行，即使引用了framework也不行。

 

lafare

不用framework就可以了,我也没用过那东西

MJTD_7777

大侠,你终于出现了.

GetRunningObjectTable

好像是存在于 .net framework 中的,但是我可以得到IRunningObjectTable,IEnumMoniker 缺无法从IEnumMoniker获取IMoniker

你这个程序对我们很重要,能否赐教一下.

NetBee

VLAX类在2004中也出现这个问题了。