Clears the query of all but the main branch and mode.
Clear( ) As Boolean
Returns True on success.
Call this method before setting a new query. The following example clears a query definition. 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
qry.Clear