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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.