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