CrossSection Example

CrossSection Example

Sub Example_CrossSection()

    ' This example returns the datum layer for the cross section

    ' preferences in the current project.

    Dim prefPrj As AeccPreferencesProject

    Set prefPrj = AeccApplication.ActiveProject.Preferences

    MsgBox "The datum layer for cross section preferences in the current project is: " _

        & prefPrj.CrossSection.GetString(kDatumLayer), vbInformation, "Profile Example"

End Sub