Profile Example

Land Auto

previous page next page

Profile Example 

Sub Example_Profile()
    
    ' This example returns the base grid layer for Profile Preferences
    ' in the current project.
    Dim prefPrj As AeccPreferencesProject
    Set prefPrj = AeccApplication.ActiveProject.Preferences
    
    MsgBox "The base grid layer for Profle Preferences in the current Project is: " _
        & prefPrj.Profile.GetString(kBaseGridLayer), vbInformation, "Profile Example"
    
End Sub

previous page start next page