Side2 Example
Sub Example_Side2() 'This example shows the length of cut plane along the ending 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 2 is: " & clip.Side2, vbInformation, "Side2 Example" End If Next If count = 0 Then MsgBox "No ClipVol Present in Drawing", vbInformation, "Side2 Example" End If
End Sub