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