在当前地图窗口添加一个Shape文件为一个图层（VBA）

Sub AddShapeFileLayer()


'/添加一个ShapeFile为一个图层




'/定义一个图元层接口，并用FeatureLayer类来实现该接口


Dim pFeatrueLayer As IFeatureLayer


Set pFeatrueLayer = New FeatureLayer




'/定义一个图元类接口，用OpenFeatureClass打开指定Shape文件实现该接口


'/该Shape文件为："D:Linetest3"，注意这里路径和文件名的写法


Dim pFeatureClass As IFeatureClass


Set pFeatureClass = OpenFeatureClass("D:", "Linetest3")




'/将图元层与图元类挂钩


Set pFeatrueLayer.FeatureClass = pFeatureClass


'/自己设定将要添加的图层的名称


pFeatrueLayer.Name = "hihi"




Dim pDucument As IMxDocument


Dim pMap As IMap




Set pDucument = ThisDocument


Set pMap = pDucument.FocusMap




'/在当前地图窗口添加该Shape为一图层


pMap.AddLayer pFeatrueLayer




Set pFeatrueLayer = Nothing


Set pFeatureClass = Nothing






End Sub

终于试通这个例子