SelfIntersects Example

AEC Auto

Sub Example_SelfIntersects()

'This example shows if an AecPolygon self intersects

    Dim obj As Object
    Dim pt As Variant
    Dim poly As AecPolygon
    
    ThisDrawing.Utility.GetEntity obj, pt, "Select an AECPolygon"
    If TypeOf obj Is AecPolygon Then
        Set poly = obj
        MsgBox "Profile SelfIntersects?: " & poly.Profile.SelfIntersects, vbInformation, "SelfIntersects Example"
    Else
        MsgBox "Not a Polygon or no Profile Found", vbInformation, "SelfIntersects Example"
    End If

End Sub

previous page start next page