ProfileStyleName Example

ProfileStyleName Example

Sub Example_ProfileStyleName ()

'This example shows the profile style name for the mass element

    Dim object As Object
    Dim mass As AecMassElement
    Dim count As Integer
    
    'initalize
    count = 0
    
    For Each object In ThisDrawing.ModelSpace
    
        If TypeOf object Is AecMassElement Then
            count = count + 1
            Set mass = object
            MsgBox "Mass Element " & count & " Name is: " & mass.ProfileStyleName, vbInformation, "Profile Style Name Example"
        End If
        
    Next
    
    If count = 0 Then
        MsgBox "No Mass Elements Present in Drawing", vbInformation, "Profile Style Name Example"
    End If

End Sub