Спасибо Александр. Да вот беда, не хочет работать код
Dim aeccApp As Autodesk.AECC.Interop.UiLand.AeccApplication = Nothing
Dim aeccDoc As Autodesk.AECC.Interop.UiLand.AeccDocument = Nothing
Dim aeccDb As Autodesk.AECC.Interop.Land.AeccDatabase = Nothing
Dim oApp As AcadApplication = Application.AcadApplication
Dim sAppName As String = "AeccXUiLand.AeccApplication.10.4"
aeccApp = oApp.GetInterfaceObject(sAppName)
aeccDoc = aeccApp.ActiveDocument
aeccDb = aeccDoc.Database
Последняя строчка выдает ошибку Сбой при импорте типа. Нет в aeccDb такого метода как Database