空间信息处理方法与技术-7.pptVIP

Find.Search方法返回查找到图元存储在FindFeature对象中。 FindFeature对象把查找到的Feature对象的属性作为自身的属性。 FindFeature包含FindRC属性，该属性为Find操作的结果代码。FindRC属性是表明查找到或未查找到图元的原因的数字值。 2)SearchEx 该方法向搜索函数返回“精确匹配”来扩展Search搜索功能。通过设置参数可以匹配结果，如果不能精确匹配，该方法可以返回最接近的匹配结果。 使用方法：FindResult=OBJECT.SearchEx(Address，[Boundary]) 参数与Search方法相同。 Find.SearchEx返回FindResult对象，该对象的属性如表6.3所示。 在txtState州内查找txtCity市 Set objFindResult=lyrCity.Find.SearchEx(txtCity， txtState) If objFindResult.MultipleMatches=True Then 如果返回多个匹配 For Each objMatchcandidate In objFindResult.Matches firstcounter=firstcouncer+1 Listl.AddItem objMatchcandidate.Name 构造表格放置结果 intNumRows=obj FindResult.Matches.Count 匹配的个数，作为行数 intNumCols=dsCity.Fields.Count 字段的数目，作为列数 CityGrid.Cols=intNumCols CityGrid.Rows=intNumRows For counter=l To intNumCols CityGrid.Row=firstcounter-1 CityGrid.Col=counter-1 CityGrid.Text=dsCity.Value(objMatchCandidate.FeatureID，counter) Next Next Else 如果返回精确匹配 Listl.AddItem objFindResult.MatchedFeature.Name 构造1行的表格放置结果 intNumCols=dsCity.Fields.Count CityGrid.Cols=intNumCols For counter=1 To intNumColS CityGrid.Col=counter-1 CityGrid.Text=dsCity.Value(objFindResult.MatchedFeature. _ FeatureID，counter) Next End If Private Sub ModifyByPoint(X As Double，Y As Double) Dim srcLayer as MapXLib.Layer Dim ftrsUnderPoint as MapXLib.Features Dim pt As New MapXLib.Point 坐标点赋值 pt.Set X，Y 打开指定图层 Set srcLayer=Map1.Layers.Item(Customer Layer) 找到该点 Set ftrsUnderPoint=srcLayer.SearchAtPoint(pt) 找到指定字段 srcLayer.KeyField=CUST NAME For Each ftr in ftrsUnderPoint ftr.KeyValue=”MapInfo Corp’’ ftr.Update Next End Sub SourceData 参数:该参数用来引用数据，随Dataset类型的不同而不同。下面是每一种数据集类型的有效数据源： 如果正在绑定属性数据，则此参数指定和数据连接的地图图层，或者，若引入的数据被地理引用到点引用文件中(如：邮政编码)或包含经/纬度值，则指定一个 BindLayerObject。这是可选参数，如果没有指定，则 MapX 会搜索 GeoDictionary 中的图层去连接。 如果已知要绑定的地图图层，基于性能的原因，应当指定它。匹配 BindLayer 时，Geofields 必须唯一。