procedure SaveSelectionToTable(LayerName:String;Path:String);
var
LayerInfo:CMapXLayerInfo;
lyr:CMapXLayer;
Ds:CMapXDataSet;
Ftrs:CMapXFeatures;
begin
Lyr := MapTemp.Layers.Item('要查询的图层名');
ds := MapTemp.Datasets.Item('要查询的图层名');
Ftrs:=lyr.Selection.Clone;
//复制数据到新表
LayerInfo := CoLayerInfo.Create;
LayerInfo.Type_ := miLayerInfoTypeNewTable;
LayerInfo.AddParameter ('filespec', path);
LayerInfo.AddParameter ('Name', layername);
LayerInfo.AddParameter ('Fields', ds.Fields);
LayerInfo.AddParameter ('Features', Ftrs);
LayerInfo.AddParameter ('AutoCreateDataset', 1);
LayerInfo.AddParameter ('datasetname', LayerName);
MapTemp.Layers.add (LayerInfo, 0);
MapTemp.Refresh;
end;






