Void Example

AEC Auto

Void Example

Sub Example_Void()

    'This example will display the if the ring is void or not
    
    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 Void?: " & ring.Void, vbInformation, "Void Example"

End Sub