Height Example

AEC Auto

Height Example

Examples:

l AecClipVol

l AecLayoutGrid3D

l AecMassElement


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