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