Profile Example
Examples:
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