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