|
阅读：1441回复：1
查找图元
在图层中如何查找某一个图元的具体位置（MapX+VB）
|
|
|
1楼#
发布于：2006-03-09 12:21
procedure TForm1.Button1Click(Sender: TObject);<BR>var<BR>ftr :CMapxFeature;<BR>lyr :CmapxLayer;<BR>ds :CMapxDataset;<BR>ftrs :Cmapxfeatures;<BR>begin<BR>lyr:=Map1.Layers.Item(1);<BR>ds:=map1.datasets.Add(miDatasetLayer,lyr,EmptyParam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);<BR>ftrs:=lyr.Search('name like "开发区管委会"');<BR>if ftrs.count>0 then<BR>begin<BR>ftr :=ftrs.Item(1);<BR>lyr.Selection.Replace(ftr);<BR>map1.ZoomTo(map1.zoom, ftr.centerX,ftr.CenterY);<BR>end;<BR>end;
|
|
