Side1 Example

Side1 Example

Sub Example_Side1()

'This example shows the length of cut plane along the starting edge

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

End Sub