ObjectDBX.AxDbDocument.17
Judging from you discussion appended to the other lengthy thread, I am not sure why you jumped to yet another very old discussion thread and claim ObjectDBX "not work any more" with AutoCAD2018 (ObjectDBX.AxdbDocument.22).
The fact is that it still works with AutoCAD 2018 and works well with AutoCAD VBA, or from external application that automates AutoCAD via COM API (because I saw your code from the other thread, and it seemed you are automating AutoCAD from other application, maybe Excel's VBA?).
Here is the code that runs good as expected in AutoCAD2018's VBA:
Option Explicit
Public Sub DbxTest()
Dim doc As AXDBLib.AxDbDocument
Dim ent As AcadEntity
Dim count As Integer
Set doc = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.22")
doc.Open "C:\Temp\Test.dwt"
For Each ent In doc.ModelSpace
count = count + 1
Next
MsgBox "Entities in modelspace: " & count
End Sub
I also created an external app (console EXE, written in Visual Studio 2017 C#), just to prove ObjectDBX can also be driven from external app via COM. There is no difference in this regard of the external app being and EXE or Excel VBA... Here is the code:
using System;
using AutoCAD;
using AXDBLib;
namespace Acad2018DbxComTest
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Press any key to continue...");
Console.ReadLine();
AcadApplication cadApp = null;
try
{
cadApp = StartAutoCAD();
Console.WriteLine("AutoCAD started. Press any key to continue...");
Console.ReadLine();
DoDbxWork(cadApp);
}
catch(System.Exception ex)
{
Console.Write("Error:");
Console.WriteLine(ex.Message);
}
finally
{
if (cadApp!=null)
{
cadApp.Quit();
}
}
Console.WriteLine("Press any key to exit...");
Console.ReadLine();
}
private static AcadApplication StartAutoCAD()
{
var app = new AcadApplication();
app.Visible = true;
return app;
}
private static void DoDbxWork(AcadApplication cadApp)
{
var dbxDoc = (AXDBLib.AxDbDocument)cadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.22");
dbxDoc.Open(@"C:\Temp\Test.dwg");
int count = 0;
foreach (AXDBLib.AcadEntity ent in dbxDoc.ModelSpace)
{
count++;
}
Console.WriteLine("Entitiy count in ModelSpace: {0}", count);
}
}
}
The external also works as expected.
Note, contrarily to what Ed said in the other thread, AxdbDocument CAN open *.DWT file, as open *.DWG file (but not *.DXF file).
So, you'd better provide more details on what/how you have tried to lead to declare some "not working", in spite that thing does work as long as you do it right.
Well, the code in your first respond to my reply should have been worked (at least the portion of code related to starting AutoCAD session and then obtain the AxdbDocument object. And it is obviously the code in your second respond SHOULD NOT work, because of this line of code:
Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.22")
because "Application" in this code context refers to MS Access Application, which does not have a method GetInterfaceObject(). What I said in my previous reply stays:
AcadAPplication.GetInterfaceObject("ObjectDBX.AxDbDocument.xx")
works for all later AutoCAD releases. In order to back up my claim, I specifically tried following code in MS Access' VBA Mudule:
Option Compare Database
Option Explicit
Public Sub DbxTest()
Dim cadApp As AcadApplication
Dim doc As AXDBLib.AxDbDocument
Dim ent As AcadEntity
Dim count As Integer
On Error Resume Next
Set cadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "Cannot start AutoCAD session!"
Else
cadApp.Visible = True
Set doc = cadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.22")
If Err Then
MsgBox "Cannot create AxdbDocument!"
Else
doc.Open "C:\Temp\Test.dwg"
For Each ent In doc.ModelSpace
count = count + 1
Next
MsgBox "Entities in modelspace: " & count
End If
End If
End Sub
I tried this code with 2 different computers:
Win7 + MS Access 2013 + AutoCAD 2017 (of course in that case, the ProgId is "ObjectDBX.AcDbDocument.21")
Win10 + MS Access 2016 + AutoCAD 2018.
One possible reason that
cadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.22")
does not work is that when you set reference to AutoCAD Commom ObjectDBX type library, in the library list of "References" dialog box you may see 2 items list there, one locateed in "C:\Program Files\Common files\Autodesk Shared\" folder, the other located in "C:\Program Files (x86)\Common Files\Autodesk Shared\". Depending on your AutoCAD being 32bit or 64bit, you should select the one in "Program Files (x86)\..." folder for 32bit AutoCAD, and choose the other for 64bit AutoCAD,
Again,
AcadApplication.GetInterfaceObject("ObjectDBX.AcDbDocument.22")
works as expected, and as all older version of AutoCAD, be it called inside AutoCAD VBA, or from external application via COM (in your case MS Access application)!