mapx 中如果一次性的删除图层上的所有图元？

[szwwhui]

mapx 中如果一次性的删除图层上的所有图元？

[letheanwater]

把层删掉哇!
构建游标,循环删除

检索所有的FEATURE,逐个删除

[liangxiliang]

定义：
i:integer;
ftrs:CMapXFeatures;
代码：
ftrs:=map1.Layers.Item('图层X').AllFeatures;
for i:=1 to ftrs.Count do
map1.Layers.Item('图层X').DeleteFeature(ftrs.Item(i));

[starrygis]

顶一下。。。

[zwlwenlong]

一、就是删除图层，这个可能比较快
二、就是循环删除每个图元了。太多恐怕要删一会了

[gkhome3976]

m_ctrlMapX.GetLayers ().Remove (index) ;
index是你图元所在图层的索引值，直接把图层删了，图元也就一次性删了。

[charryli]

to 楼上的
你那种只是把该图层从当前mapx中卸载出去，实际上没有真正的删除。

要真正的删除，还是需要删除feature的

[islkeng]

Dim fls As Object
Dim filePath As String
Set fls = CreateObject("Scripting.FileSystemObject")

frmMainMap.Map1.Layers.Remove LayerName

filePath = App.Path + "\" + gDynamicLyrPath
If fls.FileExists(filePath + "\" + LayerName + ".tab") Then
Kill filePath + "\" + LayerName + ".tab"
Kill filePath + "\" + LayerName + ".dat"
Kill filePath + "\" + LayerName + ".map"
Kill filePath + "\" + LayerName + ".id"
Kill filePath + "\" + LayerName + ".ind"
End If

Set objectLayer = frmMainMap.Map1.Layers.CreateLayer(LayerName, filePath + "\" + LayerName + ".tab", position)
Set objectDataSet = frmMainMap.Map1.DataSets.Add(miDataSetLayer, objectLayer)
Set objectLayer.LabelProperties.Dataset = objectDataSet
Set objectLayer.LabelProperties.DataField = objectDataSet.Fields.Item("GEONAME")
objectLayer.LabelProperties.position = miPositionTC
frmMainMap.Map1.Layers.Item(LayerName).AutoLabel = True