LowerExtension Example

LowerExtension Example

Sub Example_LowerExtension()

'This example shows the distance of the lower cut plane below
'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 & " Lower Extension is: " & clip.LowerExtension, vbInformation, "LowerExtension Example"
        End If
        
    Next
    
    If count = 0 Then
        MsgBox "No ClipVol Present in Drawing", vbInformation, "LowerExtenstion Example"
    End If

End Sub