兔八哥用VB+AO写的Merge Layer程序
ArcGIS中提供两个合并图层的工具,Append和Merge Layer.可惜,Append只能处理Coverage.而要使用Merge Layer就不得不打开庞大的ArcMap.甚至还要将合并的图层加进去。这样效率都是很低的。兔八哥写了点小东西,测试一下居然通过了,也共享给大家吧。提...
- 作者:兔八哥来源:GIS空间站|2006年07月01日
ARCGIS中提供两个合并图层的工具,Append和Merge Layer.可惜,Append只能处理Coverage.而要使用Merge Layer就不得不打开庞大的ArcMap.甚至还要将合并的图层加进去。这样效率都是很低的。兔八哥写了点小东西,测试一下居然通过了,也共享给大家吧。提供Merge Layer的应用程序,没有经过严格测试和错误处理哦。此外提供Merge函数,你可以改一改,就可以处理Geodatabase(目前只写了shapefile的处理),还可以实现将某一个目录下的所有数据进行合并什么的。自己发挥一下想象吧。下载DEMO程序 |
Public Function Merge(pathLayer1 As String, pathLayer2 As String, pathMergeResult As String, _ nameLayer1 As String, nameLayer2 As String, nameMergeResult As String) ' 分别读取图层一,图层二到FeatureClass和Table中 Dim pFirstFeatClass As IFeatureClass Dim pFeatLayer1 As IFeatureLayer Dim pFeatLayer2 As IFeatureLayer Set pWorkspaceFactory = New ShapefileWorkspaceFactory Set pFirstFeatClass = pWorkspace1.OpenFeatureClass(nameLayer1) Set pFeatLayer1.FeatureClass = pFirstFeatClass ' 检查错误 If pSecondTable Is Nothing Then ' 定义输出要素类名称和shape类型 With pFeatClassName ' 定义输出shapefile位置与名称 With pNewWSName Dim pDatasetName As IDatasetName Set pDatasetName.WorkspaceName = pNewWSName ' 定义Merge参数 ' 进行Merge操作
|
上一篇:没有了!
下一篇:设置图层的地图提示字段