Parcel Example

Land Auto

Parcel Example

Sub Example_Parcel()
    
    ' This example returns the K Label layer for Parcel Preferences
    ' in the current project.
    Dim prefPrj As AeccPreferencesProject
    Set prefPrj = AeccApplication.ActiveProject.Preferences
    
    MsgBox "The K Label layer for Parcel Preferences in the current Project is: " _
        & prefPrj.Parcel.GetString(kLabelLayer), vbInformation, "Parcel Example"
    
End Sub