Profile Example

Profile Example

Examples:

l AecProfileStyle

l AecRing

l AecRings

---

Sub Example_Profile_AecProfileStyle()

    ' This example will display the area of the first profile style in the collection
    
    Dim db As New AecBaseDatabase
    Dim pStyle As AecProfileStyle
    
    db.Init ThisDrawing.Database
    
    Set pStyle = db.ProfileStyles.Item(0)
    MsgBox "Profile Area: " & pStyle.Profile.Area, vbInformation, "Profile Example"

End Sub

---

Sub Example_Profile_AecRing()

    'This example will display the area of the ring's owner profile
    
    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 Profile Area: " & ring.Profile.Area, vbInformation, "Profile Example"

End Sub

---

Sub Example_Profile_AecRings()

    ' This example will display the area of the profile that owns the ring collection
    
    Dim db As New AecBaseDatabase
    Dim pStyle As AecProfileStyle
    
    db.Init ThisDrawing.Database
    
    Set pStyle = db.ProfileStyles.Item(0)
    MsgBox "Rings Profile Area: " & pStyle.Profile.rings.Profile.Area, vbInformation, "Profile Example"

End Sub

---