在当前地图窗口添加一个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

 终于试通这个例子