EdgeWidth Example

EdgeWidth Example

Sub Example_EdgeWidth()

    ' This example will display the edge width of the selected AecPolygon

    Dim obj As AcadObject
    Dim pt As Variant
    
    ThisDrawing.Utility.GetEntity obj, pt, "Select AecPolygon"
    
    If TypeOf obj Is AecPolygon Then
        Dim polygon As AecPolygon
        Dim polygonStyle As AecPolygonStyle
        Set polygon = obj
        Set polygonStyle = polygon.Style
        MsgBox "Polygon EdgeWidth = " & polygonStyle.EdgeWidth, vbInformation, "EdgeWidth Example"
    Else
        MsgBox "No AecPolygon Selected", vbInformation, "EdgeWidth Example"
    End If

End Sub