Using VBA Adding an SDE for coverages layer to ArcMap

swfsunboy

于 2008-03-02 20:23:00 发布

阅读量683

点赞数

分类专栏： ARCGIS 文章标签： layer vba server class user

ARCGIS 专栏收录该内容

30 篇文章

订阅专栏

本文介绍了一种使用 ArcGIS 的方法来从 SDE 数据库中加载“cities”图层，并将其添加到当前地图文档的活动视图中。通过创建 SDE 工作空间工厂对象并打开指定的工作空间字符串，可以获取到特征类。接着创建新的图层对象，并将该特征类设置为图层的数据源。最后将新建的图层添加到地图中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Sub AddSDECoverageLayer()
Dim pWorkFact As IWorkspaceFactory2
Dim pFWorkspace As IFeatureWorkspace
Dim pFClass As IFeatureClass
Dim pFLayer As IFeatureLayer
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pAV As IActiveView

'Open Feature Class
Set pWorkFact = New SdeWorkspaceFactory
Set pFWorkspace = pWorkFact.OpenFromString("server=swfcln;instance=5151;user=sde;password=sde;version=sde.default", 0)
Set pFClass = pFWorkspace.OpenFeatureClass("cities")

'Create new layer
Set pFLayer = New FeatureLayer
Set pFLayer.FeatureClass = pFClass
pFLayer.Name = pFClass.AliasName

'Add layer to map
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
Set pAV = pMap
pMap.AddLayer pFLayer
pAV.Refresh
End Sub