Public Sub PrintDisplayExpressions() ' Get layer, assumed first in TOC and has a display expression set Dim pMXD As IMxDocument Set pMXD = ThisDocument Dim pMap As IMap Set pMap = pMXD.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) Dim pFeaturelayer As IFeatureLayer Set pFeaturelayer = pLayer Dim pDisplayString As IDisplayString Set pDisplayString = pFeaturelayer ' Print display string Dim pFeatureCursor As IFeatureCursor Set pFeatureCursor = pFeaturelayer.Search(Nothing, True) Dim pFeature As IFeature Set pFeature = pFeatureCursor.NextFeature Do While Not pFeature Is Nothing Debug.Print pDisplayString.FindDisplayString(pFeature) Set pFeature = pFeatureCursor.NextFeature Loop 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.