CrossSection Example

Land Auto

previous page next page

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

previous page start next page