Creates a window boundary.

NewWindow( _
 BottomLeft As Point3d, _
 UpperRight As Point3d _
 ) As WindowBound

Returns a WindowBound object.

BottomLeft

The bottom left coordinate point of a new window.

UpperRight

The upper right coordinate point of a new window

This example is an excerpt from the sample code for creating a query. For more information, click . The following example gets the extents of the drawing to define a query window boundary.

Dim wind As WindowBound

Dim dblary As Variant

'Get DWG Extents

dblary = prj.DrawingSet.Item("MAPTUT:\\citymap7.dwg").Extents

Set mapu = map.Projects(ThisDrawing).MapUtil

Set wind = mapu.NewWindow( _

mapu.NewPoint3d(dblary(0), dblary(1), 0), _ 

mapu.NewPoint3d(dblary(2), dblary(3), 0))