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

 终于试通这个例子