Height Example
Examples:
Sub Example_Height_AecClipVol() 'This example shows the height of the upper cut plane above the 'building elevation line position Dim object As Object Dim clip As AecClipVol Dim count As Integer 'initalize count = 0 For Each object In ThisDrawing.ModelSpace If TypeOf object Is AecClipVol Then count = count + 1 Set clip = object MsgBox "ClipVol " & count & " Height is: " & clip.Height, vbInformation, "Height Example" End If Next If count = 0 Then MsgBox "No ClipVol Present in Drawing", vbInformation, "Height Example" End If
End Sub
Sub Example_Height_AecLayoutGrid3D()Dim object As Object Dim grid As AecLayoutGrid3D Dim count As Integer 'initalize count = 0 For Each object In ThisDrawing.ModelSpace If TypeOf object Is AecLayoutGrid3D Then count = count + 1 Set grid = object MsgBox "3D Grid" & count & " Height is: " & grid.Height, vbInformation, "Height Example" End If Next If count = 0 Then MsgBox "No 3D Layout Grids Present in Drawing", vbInformation, "Height Example" End If
End Sub
Sub Example_Height_AecMassElement() 'This example shows the size of the mass element in its relative Z direction 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 & " Height is: " & mass.Height, vbInformation, "Height Example" End If Next If count = 0 Then MsgBox "No Mass Elements Present in Drawing", vbInformation, "Height Example" End If
End Sub