PolygonStyles Example

AEC Auto

PolygonStyles Example

Sub Example_PolygonStyles()

    ' This example will display the number of Polygon Styles in the current drawing.

    Dim doc As AecArchBaseDocument
    Dim cPolygonStyles As AecPolygonStyles
    
    Set doc = AecArchBaseApplication.ActiveDocument
    Set cPolygonStyles = doc.PolygonStyles
 
    MsgBox "Number of Polygon Styles in this drawing is: " & cPolygonStyles.Count, vbInformation, "PolygonStyles Example"                    
End Sub