VBA之添加Shape图层

最新推荐文章于 2021-01-02 22:09:35 发布

nj66666666

最新推荐文章于 2021-01-02 22:09:35 发布

阅读量1.6k

点赞数

分类专栏： ArcGIS desktop

本文链接：https://blog.csdn.net/nj198624/article/details/8160410

版权

ArcGIS desktop 专栏收录该内容

68 篇文章 2 订阅

订阅专栏

参考DeskTop帮助文档
准备：添加一个Button控件
Tools—>Customize—>Commands tab—> UIControl—>IButtonControl

在该Button的Click事件中添加以下代码：

Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New ShapefileWorkspaceFactory

Dim pWorkSpace As IFeatureWorkspace
'Change ‘e:\street’ to the source location of the shapefile you wish to add
Set pWorkSpace = pWorkspaceFactory.OpenFromFile("e:\street", 0)

Dim pClass As IFeatureClass
'Change polygon to the name of the shapefile you wish to add
Set pClass = pWorkSpace.OpenFeatureClass("polygon")

Dim pLayer As IFeatureLayer
Set pLayer = New FeatureLayer
Set pLayer.FeatureClass = pClass
pLayer.Name = pClass.AliasName

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

pMxDoc.AddLayer pLayer
pMxDoc.ActiveView.PartialRefresh esriViewGeography, pLayer, Nothing