Public
Sub
ShowLayerName()
' /显示当前Map中的图层
Dim pFeatureLayer As IFeatureLayer
Dim pLayer As ILayer
Dim pDocument As IMxDocument
Dim pMap As IMap
Set
' /显示当前Map中的图层
Dim pFeatureLayer As IFeatureLayer
Dim pLayer As ILayer
Dim pDocument As IMxDocument
Dim pMap As IMap
Set