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