nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

How to change geometry of annotation?

HenkZwols

Hello,

I want to change the geometry (textpath) of existing annotation features so that the curvature gets horizontal. I tried several things but did not succeed.
Can somebody help me with the code i already have?

        Set pFeatureCursor = pFeatureclass.Update(pFilter, False)         Set pFeature = pFeatureCursor.NextFeature         While Not pFeature Is Nothing              Dim pAnnoFeat As IAnnotationFeature             Set pAnnoFeat = pFeature                          Dim pElement As IElement             Set pElement = pAnnoFeat.Annotation                          Dim pTextElement As ITextElement             Set pTextElement = pElement                          Dim pTextSym As ISimpleTextSymbol             Set pTextSym = pTextElement.Symbol              If Not pTextSym Is Nothing Then                  Dim pTextPath As ITextPath                 Set pTextPath = pTextSym.TextPath                  If TypeOf pTextPath Is IOverposterTextPath Then                      If TypeOf pElement.Geometry Is IPolyline Then                          Dim pPointCol As IPointCollection                         Set pPointCol = New Polyline                         Set pPointCol = pElement.Geometry                          ' Just keep start- and endpoint                         pPointCol.RemovePoints 1, pPointCol.PointCount - 2                                                  '....... Replace textPath here ......                          pFeatureCursor.UpdateFeature pFeature                      End If                 End If             End If             Set pFeature = pFeatureCursor.NextFeature         Wend              End If

Greetings, Henk

Vind meer berichten getagd met

Accepted answers

JeffMatson

You'll need to have an edit session going, either programatically, or manually via the Editor toolbar...

pElement does't accept any changes. The following code gives me automation errors:

                        'Replace textPath here ......                         ' Just keep start- and endpoint                         Dim pNewPolyline As IPolyline                         Set pNewPolyline = New Polyline                         pNewPolyline.fromPoint = pPointCol.Point(0)                         pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)                         pElement.Geometry = pNewPolyline '*** automation error ***                          Dim pNewPointCol As IPointCollection                         Set pNewPointCol = New Polyline                         Set pNewPointCol = pNewPolyline                         pElement.Geometry = pNewPointCol '*** automation error ***                                                  pPointCol.RemovePoints 1, pPointCol.PointCount - 2                         pElement.Geometry = pPointCol '*** automation error ***

All comments

HenkZwols

Nobody has the answer?

NeilClemmons_GISinc

Have you tried modifying the geometry used by the text path (ITextPath.Geometry)?

HenkZwols

Yes Neal, but did not succeed. Maybe you can show me how to do it?

JeffMatson

The documentation recommends not changing the geometry of an OverposterTextPath:

http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#/ITextPath_Interface/001w00000394000000/

Can you create a new SimpleTextPath (using a newly created polyline of the From and To points) and then assign this new SimpleTextPath back to your TextSymbol.TextPath?

HenkZwols

There must be missing something. The geometry doesn't change.

                        'Replace textPath here ......
                        ' Just keep start- and endpoint
                        Dim pNewPolyline As IPolyline
                        Set pNewPolyline = New Polyline
                        pNewPolyline.fromPoint = pPointCol.Point(0)
                        pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)

                        Dim pNewTextPath As ITextPath
                        Set pNewTextPath = New SimpleTextPath
                        Set pNewTextPath.Geometry = pNewPolyline
                        Set pTextSym.TextPath = pNewTextPath

                        pFeatureCursor.UpdateFeature pFeature

JeffMatson

You'll probably need to set pElement.Geometry back to the modified point collection and then set pAnnoFeat.Annotation to the updated pElement.

If TypeOf pElement.Geometry Is IPolyline Then


      Dim pPointCol As IPointCollection
      Set pPointCol = pElement.Geometry

       ' Just keep start- and endpoint
       pPointCol.RemovePoints 1, pPointCol.PointCount - 2
                        
       ''----------------------------
        pElement.Geometry = pPointCol
        pAnnoFeat.Annotation = pElement
        ''----------------------------
                        
        pFeatureCursor.UpdateFeature pfeature
                       
End If

There must be missing something. The geometry doesn't change.

                        'Replace textPath here ......
                        ' Just keep start- and endpoint
                        Dim pNewPolyline As IPolyline
                        Set pNewPolyline = New Polyline
                        pNewPolyline.fromPoint = pPointCol.Point(0)
                        pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)

                        Dim pNewTextPath As ITextPath
                        Set pNewTextPath = New SimpleTextPath
                        Set pNewTextPath.Geometry = pNewPolyline
                        Set pTextSym.TextPath = pNewTextPath

                        pFeatureCursor.UpdateFeature pFeature

HenkZwols

pElement does't accept any changes. The following code gives me automation errors:

                        'Replace textPath here ......
                        ' Just keep start- and endpoint
                        Dim pNewPolyline As IPolyline
                        Set pNewPolyline = New Polyline
                        pNewPolyline.fromPoint = pPointCol.Point(0)
                        pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)
                        pElement.Geometry = pNewPolyline '*** automation error ***

                        Dim pNewPointCol As IPointCollection
                        Set pNewPointCol = New Polyline
                        Set pNewPointCol = pNewPolyline
                        pElement.Geometry = pNewPointCol '*** automation error ***     
                   
                        pPointCol.RemovePoints 1, pPointCol.PointCount - 2
                        pElement.Geometry = pPointCol '*** automation error ***

JeffMatson

You'll need to have an edit session going, either programatically, or manually via the Editor toolbar...

pElement does't accept any changes. The following code gives me automation errors:

                        'Replace textPath here ......                         ' Just keep start- and endpoint                         Dim pNewPolyline As IPolyline                         Set pNewPolyline = New Polyline                         pNewPolyline.fromPoint = pPointCol.Point(0)                         pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)                         pElement.Geometry = pNewPolyline '*** automation error ***                          Dim pNewPointCol As IPointCollection                         Set pNewPointCol = New Polyline                         Set pNewPointCol = pNewPolyline                         pElement.Geometry = pNewPointCol '*** automation error ***                                                  pPointCol.RemovePoints 1, pPointCol.PointCount - 2                         pElement.Geometry = pPointCol '*** automation error ***

HenkZwols

Thanks Jeff, that's the way: start an edit session.

                    '*** edit session running ***

                    If TypeOf pElement.Geometry Is IPolyline Then
                           
                        Dim pPointCol As IPointCollection
                        Set pPointCol = New Polyline
                        Set pPointCol = pElement.Geometry

                        'Replace textPath here ......
                        ' Just keep start- and endpoint
                        Dim pNewPolyline As IPolyline
                        Set pNewPolyline = New Polyline
                        pNewPolyline.fromPoint = pPointCol.Point(0)
                        pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)
                        
                        pElement.Geometry = pNewPolyline

                        pAnnoFeat.Annotation = pElement

                        pFeatureCursor.UpdateFeature pFeature

                    End If

One more question: is it possible to start an edit session programatically without having the involved featureclass loaded in the table of contents?

JeffMatson

Glad it's working...

To open an edit session on a layer not loaded in ArcMap you can open the workspace using IWorkspaceFactory.OpenFromFile and IWorkspaceEdit. Here is an old sample that opens a personal geodatabase which will work in ArcMap, ArcCatalog, etc.:

Dim pFClass As IFeatureClass
    Dim pEnumDS As IEnumDataset
    Dim pDS As IDataset
    Dim pWS As IWorkspace
    Dim pWSE As IWorkspaceEdit
    Dim pWSF As IWorkspaceFactory
    
    Set pWSF = New AccessWorkspaceFactory
    Set pWS = pWSF.OpenFromFile("C:\TestData\TestData.mdb", 0)
    Set pWSE = pWS
    Set pEnumDS = pWS.Datasets(esriDTAny)
    Set pDS = pEnumDS.Next
    Do Until pDS Is Nothing
        If pDS.Name = "TestLayer1" Then
            Set pFClass = pDS
            Exit Do
        End If
        Set pDS = pEnumDS.Next
    Loop
    
    If Not pFClass Is Nothing Then
        pWSE.StartEditing False
        pWSE.StartEditOperation
        
        Dim pFCur As IFeatureCursor
        Dim pFeat As IFeature
        Set pFCur = pFClass.Search(Nothing, False)
        Set pFeat = pFCur.NextFeature
        Do Until pFeat Is Nothing
            ''Do something with feature....


            Set pFeat = pFCur.NextFeature
        Loop
        pWSE.StopEditOperation
        pWSE.StopEditing True
    End If

Thanks Jeff, that's the way: start an edit session.

                    '*** edit session running ***

                    If TypeOf pElement.Geometry Is IPolyline Then
                           
                        Dim pPointCol As IPointCollection
                        Set pPointCol = New Polyline
                        Set pPointCol = pElement.Geometry

                        'Replace textPath here ......
                        ' Just keep start- and endpoint
                        Dim pNewPolyline As IPolyline
                        Set pNewPolyline = New Polyline
                        pNewPolyline.fromPoint = pPointCol.Point(0)
                        pNewPolyline.toPoint = pPointCol.Point(pPointCol.PointCount - 1)
                        
                        pElement.Geometry = pNewPolyline

                        pAnnoFeat.Annotation = pElement

                        pFeatureCursor.UpdateFeature pFeature

                    End If

One more question: is it possible to start an edit session programatically without having the involved featureclass loaded in the table of contents?

HenkZwols

Thanks a lot Jeff!

Doe mee aan het gesprek

Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.

Snelle Links

Community Help
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.