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