LayerKeyStyles Example

AEC Auto

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