ProfileStyles Example

AEC Auto

Sub Example_ProfileStyles()

    ' This example will display the number of Profile Styles in the current drawing.

    Dim doc As  AecArchBaseDocument
    Dim cProfileStyles As AecProfileStyles
    
    Set doc = AecArchBaseApplication.ActiveDocument
    
    Set cProfileStyles = doc.ProfileStyles
    MsgBox "Number of Profile Styles in this drawing is: " & cProfileStyles.Count, vbInformation, "ProfileStyles Example"

End Sub

previous page start next page