Valid Example

Valid Example

Examples:

l AecProfile

l AecRing

---

Sub Example_Valid_AecProfile()

'This example shows if an AecPolygon is valid

    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 Valid: " & poly.Profile.Valid, vbInformation, "Valid Example"
    Else
        MsgBox "Not a Polygon or no Profile Found", vbInformation, "Valid Example"
    End If

End Sub

---

Sub Example_Valid_AecRing()

    'This example will display the validity of the ring
    
    Dim db As New AecBaseDatabase
    Dim ring As AecRing
    
    db.Init ThisDrawing.Database
    
    Set ring = db.ProfileStyles.Item(0).Profile.rings.Item(0)
    MsgBox "Ring Valid?: " & ring.Valid, vbInformation, "Valid Example"

End Sub

---