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
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.