SetBoundingBox Example
Sub Example_SetBoundingBox()
' This example sets a surface bounding box for the first surface
' in the collection, based upon two picked points.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Dim pnt1 As Variant
Dim pnt2 As Variant
pnt1 = ThisDrawing.Utility.GetPoint(, "Select first corner : ")
pnt2 = ThisDrawing.Utility.GetCorner(Pnt1, "Select other corner: ")
surf.SetBoundingBox pnt1, pnt2
End Sub