ACA 2013 LayerKeyStyle

[michael.montagne]

I am getting an "Active X can't create Object" error with this code. It is VBA with ACA2013. I have the enabler installed. I am building a routine that will ultimately be in VB.net but I can't get off the starting block. I must be missing something.
References:
AECXUiArchBase
AECXArchBase
AECXUiBase
AECXBase
AutoCad2013 Type Library
Visual Basic for Applications
OLE automation

My code (with the line with the error marked.:

Public Sub CreateLayers()
Dim oDoc As AecArchBaseDocument
Dim o_dbPref As AecArchBaseDatabasePreferences
Dim cLayerKeyStyles As AecLayerKeyStyles
Dim oLayerKeyStyle As AecLayerKeyStyle
Dim cLayerKeys As AecLayerKeys
Dim oLayerKey As AecLayerKey
Dim oLayer As AcadLayer
'Activate the AEC Document using the AecArchBaseApplication
Set oDoc = AecArchBaseApplication.ActiveDocument '------>>>ActiveX Can't create Object<<<<<<----------
'Activate the AEC Preferences Collection
Set oPref = oDoc.Preferences
'Activate the LayerKeyStyles collection
Set cLayerKeyStyles = oDoc.LayerKeyStyles
'Sets the layer key style to the current layer standard
Set oLayerKeyStyle = cLayerKeyStyles.Item(oPref.LayerStandard)
'Message for verification
MsgBox "The current Layer Key Style is: " & o_dbPref.LayerStandard, _
vbInformation, "Current Layer Key Style"
'Activate the Keys collection of the current layer standard
Set cLayerKeys = oLayerKeyStyle.Keys
'Message for varification
MsgBox "The current number of layer keys is: " & o_cLayerKeys.Count, _
vbInformation, "Current Layer Key Count"
'Clean up all your declared objects
Set oLayer = Nothing
Set cLayerKeys = Nothing
Set oLayerKeyStyle = Nothing
Set cLayerKeyStyles = Nothing
Set oPref = Nothing
Set oDoc = Nothing
End Sub

[Ed Jobe]

You aren't creating the base app, so it can't create the ActiveDocument. I found the following code on the net.

Function getAecArchBaseApp() As AecArchBaseApplication
  Dim aecABApp As New AecArchBaseApplication
  aecABApp.Init Application
  Set getAecArchBaseApp = aecABApp
End Function

'Once the AecArchBaseApplication Object has been exposed, the Preferences
'object must be also exposed
'to allow the drawing properties to be modified and extracted.

Function getAecArchDbPref() As AecArchBaseDatabasePreferences
  Set getAecArchDbPref = getAecArchBaseApp.ActiveDocument.Preferences
  End Function

Also, if you are using a profile that doesn't actually load the dll's, you'll get the same error. For example, using the shortcut to run ACA as plain acad.

[michael.montagne]

Excellent theory. I thought it must have something to do with that pesky Init function. But it didn't work! Same error at the line "aecABApp.Init Application". i checked and my profile is "AutoCad Architecture US Imperial". Right out of the box. I CAN run a basic "Hello world" routine so it seems that VBA is functioning.

[michael.montagne]

I think i'm off the starting block. I found this:

VBA
The VBA application object is not supported on 64-bit operating systems. As a result the following code fragments will not work, even though they do on 32-bit installations: 
'Case 1: Built-in app object
MsgBox AecArchBaseApplication.Caption 

'Case 2: New app object
Dim acaApp As New AecArchBaseApplication
acaApp.Init ThisDrawing.Application
MsgBox acaApp.Caption

Instead, instantiate the application object as follows: 
Dim acaApp As AecArchBaseApplication
Set acaApp = ThisDrawing.Application.GetInterfaceObject("AecX.AecArchBaseApplication.5.7")
acaApp.Init ThisDrawing.Application
MsgBox acaApp.Caption

So I think 64 bit is the issue.