mapxtreme2004查找最近的目标(Searchnearest)

左半边

程序环境: vs2003.net/mapxtreme2004/asp.net(vb.net)

Dim x As Integer = Int(Lx)
Dim y As Integer = Int(Ly)
Dim layername As String = "buildings"

Dim pt As MapInfo.Geometry.DPoint = New MapInfo.Geometry.DPoint(x, y)
Dim session As MapInfo.Engine.ISession = MapInfo.Engine.Session.Current
Dim dt As Distance = MapInfo.Mapping.SearchInfoFactory.ScreenToMapDistance(map1, 5)
Dim SI As MapInfo.Data.SearchInfo = MapInfo.Data.SearchInfoFactory.SearchNearest(pt, map1.GetDisplayCoordSys, dt)
SI.QueryDefinition.SetColumns("*")

CType(SI.SearchResultProcessor, MapInfo.Data.ClosestSearchResultProcessor).Options = ClosestSearchOptions.StopAtFirstMatch
session.Catalog.Search(map1.Layers.GetTableEnumerator, SI, session.Selections.DefaultSelection, MapInfo.Data.ResultSetCombineMode.Replace)

Dim tbl As MapInfo.Data.Table = session.Catalog(layername)
Dim fc As MapInfo.Data.IResultSetFeatureCollection = session.Selections.DefaultSelection(tbl)