LayerStandard Example

Sub Example_LayerStandard()

    ' This example displays the LayerStandard setting for the current drawing.

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.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