Rise Example

Rise Example

Sub Example_Rise()

'This example shows the rise of the mass element if gable shape

    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 & " Rise is: " & mass.Rise, vbInformation, "Rise Example"
        End If
        
    Next
    
    If count = 0 Then
        MsgBox "No Mass Elements Present in Drawing", vbInformation, "Rise Example"
    End If

End Sub