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