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
' /添加一个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