LayerKeyStyles Example
Sub Example_LayerKeyStyles() ' This example will display the number of Layer Key Styles in the current drawing.
Dim doc As AecArchBaseDocument Dim cLayerKeyStyles As AecLayerKeyStyles Set doc = AecArchBaseApplication.ActiveDocument Set cLayerKeyStyles = doc.LayerKeyStyles MsgBox "Number of Layer Key Styles in this drawing is: " & cLayerKeyStyles.Count, vbInformation, "Layer Key Styles Example"
End Sub