Public Sub LoadALayerFile() ' Path to Layer file Dim sPath As String Let sPath = "C:\Scratch\CITIES_pop.lyr" ' Open layerFile Dim pLayerFile As ILayerFile Set pLayerFile = New LayerFile pLayerFile.Open sPath ' Get a handle on the layer in the LayerFile and its symbology Dim pLayer As ILayer Set pLayer = pLayerFile.Layer Dim pGeoFeatureLayer As IGeoFeatureLayer Set pGeoFeatureLayer = pLayer Dim pFeatureRenderer As IFeatureRenderer Set pFeatureRenderer = pGeoFeatureLayer.Renderer ' Get a handle on the layer in map that is the same as what LayerFile is using ' Assumed to be first in TOC Dim pMXD As IMxDocument Set pMXD = ThisDocument Dim pMap As IMap Set pMap = pMXD.FocusMap Set pLayer = pMap.Layer(0) ' Overwrite renderer Set pGeoFeatureLayer = pLayer Set pGeoFeatureLayer.Renderer = pFeatureRenderer 'Update and refresh map pMXD.UpdateContents pMXD.ActiveView.Refresh End Sub
Membros conectados podem postar, seguir atualizações e mais. Novo aqui? Registre uma conta gratuita.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.