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
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.