arcengine 删除物理图层

ArcGIS删除数据图层

最新推荐文章于 2021-02-22 15:10:50 发布

原创最新推荐文章于 2021-02-22 15:10:50 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string

delphi 专栏收录该内容

18 篇文章

订阅专栏

本文提供了一个使用ArcGIS API的示例函数，用于从指定的工作区中删除名为DataName的数据图层。此函数首先获取工作区中的所有数据集，然后检查每个数据集的类型并尝试删除与提供的名称匹配的数据图层。

//删除数据图层 by gisoracle@126.com function deleteTable(FWorkspace: IWorkspace; DataName: string): boolean; var PEnumDataset : IEnumDataset; pDataset : IDataSet; wname : widestring; DType : ToleEnum; PCEnumDataset : IEnumDataset; //coverage有子 PCDataset : IDataSet; begin FWorkspace.Get_Datasets(esriDTAny, PEnumDataset); PEnumDataset.Next(pDataset); DataName := UpperCase(DataName); while pDataset <> nil do begin pDataset.Get_Name(wname); pDataset.Get_Type_(DType); if DType = esriDTFeatureDataset then //coverage目录 begin pDataset.Get_Subsets(PCEnumDataset); PCEnumDataset.Next(PCDataset); while PCDataset <> nil do begin PCDataset.Get_Name(wname); if DataName = UpperCase(wname) then begin PCDataset.Delete; result := True; Exit; end; PCEnumDataset.Next(PCDataset); end; end else begin if DataName = UpperCase(wname) then begin pDataset.Delete; result := True; Exit; end; end; PEnumDataset.Next(pDataset); end; result := False; end;