Reading Superelevation by VBA

I am trying to read superelevation data from Civil 3D 2012 by VBA, but it is not successful, I think the problem is establishing reference for Superelevation

only for Civil 3D 2012.

Maybe somebody can help.

Thanks.

PM

Welcome to CADTutor!

Could you post the code you're using (that is not successful), so that we may help you?

With no code are you opening the AeccXUiLand.AeccApplication.

Please, see the code below:

Dim oApp As AcadApplication

Set oApp = ThisDrawing.Application

' NOTE - Always specify the version number.

Const sAppName = "AeccXUiLand.AeccApplication.9.0"

Dim g_oCivilApp As AeccApplication

Set g_oCivilApp = oApp.GetInterfaceObject(sAppName)

If (g_oCivilApp Is Nothing) Then

MsgBox "Error creating " & sAppName & ", exit."

Exit Sub

End If

Dim g_oDocument As AeccDocument

Set g_oDocument = g_oCivilApp.ActiveDocument

Dim ObjAlignment As AeccAlignment

Set ObjAlignment = g_oDocument.AlignmentsSiteless.Item(0)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

MsgBox ObjAlignment.Name

'Up to here All Ok !

'But how can I make reference to "SuperElevationDataElement"

'see next link:

'http://docs.autodesk.com/CIV3D/2012/ENU/API_Reference_Guide/com/civil_om_civil.htm

PM

Keep going down the tree maybe

Dim objalignmentname as objalignment.name ?

set objsuper = objalignmentname.SuperElevationDataElement