Angle2 Example

Angle2 Example

Sub Example_Angle2()

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

End Sub