coverage转shapefile代码

最新推荐文章于 2022-02-26 22:40:16 发布

lzx1221

最新推荐文章于 2022-02-26 22:40:16 发布

阅读量1k

点赞数

分类专栏： ArcObject 文章标签： database string

本文链接：https://blog.csdn.net/lzx1221/article/details/1724807

版权

ArcObject 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

Dim sInPath, sCoverageName, sOutPath, sShapefileName As String
sInPath = "d:/AE/testData"
sCoverageName = "cover1:polygon"
sOutPath = "d:/AE/testData"
sShapefileName = "zhuan"

Dim pPropertySet As IPropertySet
Set pPropertySet = New PropertySet
pPropertySet.SetProperty "DATABASE", sInPath

Dim pOutWorkspaceName As IWorkspaceName
Set pOutWorkspaceName = New WorkspaceName
pOutWorkspaceName.ConnectionProperties = pPropertySet
pOutWorkspaceName.WorkspaceFactoryProgID = "esriCore.shapefileWorkspaceFactory.1"

Dim pOutFeatureClassName As IFeatureClassName
Set pOutFeatureClassName = New FeatureClassName

Dim pOutDatasetName As IDatasetName
Set pOutDatasetName = pOutFeatureClassName
Set pOutDatasetName.WorkspaceName = pOutWorkspaceName
pOutDatasetName.Name = sShapefileName

Dim pInWorkspaceName As IWorkspaceName
Set pInWorkspaceName = New WorkspaceName
pInWorkspaceName.PathName = sInPath
pInWorkspaceName.WorkspaceFactoryProgID = "esriCore.ArcInfoWorkspaceFactory.1"

Dim pInFeatureClassName As IFeatureClassName
Set pInFeatureClassName = New FeatureClassName

Dim pInDatasetName As IDatasetName
Set pInDatasetName = pInFeatureClassName
Set pInDatasetName.WorkspaceName = pInWorkspaceName
pInDatasetName.Name = sCoverageName

Dim pCovToShape As IFeatureDataConverter
Set pCovToShape = New FeatureDataConverter
pCovToShape.ConvertFeatureClass pInFeatureClassName, Nothing, Nothing, pOutFeatureClassName, Nothing, Nothing, "", 1000, 0

MsgBox "Done"