Latest Contributions by DuncanHornby

Michael, I think the problem is here: topoOp = intersectingGeometry geo = topoOp.Intersect(intersectingGeometry, esriGeometryDimension.esriGeometry0Dimension) You set topoOP to point to intersectingGeometry then you intersect it with the same geometry intersectingGeometry Duncan ... View more

Sui, You want to be using the IDataStatistics Interface. Duncan ... View more

Fred, OK this is how I did it in VBA. I added a layer and set a simple expression, see attached image. Then the code below will will print out all the labels as you would see them on the map. Duncan Public Sub printLabels()     ' Get layer     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 pGeoFeaturelayer As IGeoFeatureLayer     Set pGeoFeaturelayer = pLayer          ' Get annotation collection     Dim pAnnotateLayerPropertiesCollection As IAnnotateLayerPropertiesCollection     Set pAnnotateLayerPropertiesCollection = pGeoFeaturelayer.AnnotationProperties          ' Assumes 1 item in collection     Dim pAnnotateLayerProperties As IAnnotateLayerProperties     pAnnotateLayerPropertiesCollection.QueryItem 0, pAnnotateLayerProperties, Nothing, Nothing          ' Get label engine and then the expression     Dim pLabelEngineLayerProps As ILabelEngineLayerProperties     Set pLabelEngineLayerProps = pAnnotateLayerProperties     Dim simpleExpression As String     Let simpleExpression = pLabelEngineLayerProps.Expression          ' Get expression engine and create parser     Dim pAnnotationExpressionEngine As IAnnotationExpressionEngine     Set pAnnotationExpressionEngine = pLabelEngineLayerProps.ExpressionParser     Dim pAnnotationExpressionParser As IAnnotationExpressionParser     Set pAnnotationExpressionParser = pAnnotationExpressionEngine.SetExpression("", simpleExpression)          ' Loop through featurelayer printing to VBA immediate window the label as seen on map     Dim pFeatureCursor As IFeatureCursor     Set pFeatureCursor = pGeoFeaturelayer.Search(Nothing, True)     Dim pFeature As IFeature     Set pFeature = pFeatureCursor.NextFeature     Do While Not pFeature Is Nothing         Debug.Print pAnnotationExpressionParser.FindLabel(pFeature)         Set pFeature = pFeatureCursor.NextFeature     Loop End Sub ... View more