Angle1 Example

Angle1 Example

Sub Example_Angle1()

'This example shows the deviation of cut plane at starting edge where zero is
'perpendicular to the building elevation line

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

End Sub