SetBoundingBox Example

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