Creates an unlimited boundary.

NewLocationAll( ) As AllBound

Returns the new AllBound object.

The following example calls MapUtil.NewLocationAll to specify selecting all objects in a query. Before running this code, attach a drawing.

Dim amap As AcadMap

Dim prj As Project

Dim qry As Query

Dim mainqrybr As QueryBranch

Dim qrylf As QueryLeaf

Dim boolVal As Boolean

 

Set amap = ThisDrawing.Application. _

GetInterfaceObject("AutoCADMap.Application") 

Set prj = amap.Projects(ThisDrawing)

Set qry = prj.CurrQuery

Set mainqrybr = qry.QueryBranch

Set qrylf = mainqrybr.Add(kLocationCondition, kOperatorAnd)

boolVal = qrylf.SetLocationCond(kLocationInside, prj.MapUtil.NewLocationAll)

qry.Mode = kQueryDraw

boolVal = qry.Define(mainqrybr)

boolVal = qry.Execute

ThisDrawing.Application.ZoomExtents