LayerStandard Example

Land Auto

LayerStandard Example

Sub Example_LayerStandard()
    
    ' This example displays the LayerStandard setting for the current drawing.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.preferences
    
    Dim laystandard As String
    laystandard = dbPref.layerstandard
    
    ' Test if layer standard is set
    If laystandard = "" Then
        laystandard = "not set"
    End If
    
    MsgBox "The current value for LayerStandard is: " & laystandard, _
        vbInformation, "LayerStandard Example"
    
End Sub