Coordinates or measures are out of bounds

SteffenKeller — Fri, 17 Sep 2010 11:27:11 GMT

Hello all,

I use VBA in ArcMap 9.3.1:
- I have a polygon-layer (in SDE-GeoDatabase) loaded
- the editor is started and the target is the polygon-layer

I run the code below (Map.ClearSelection and then a Attribute-Selection). One polygon is now selected.
Then I use the "Edit Tool" from the Editor-Toolbar and I try to move the polygon. The polygon keeps on his place and I get a message "The feature(s) could not be moved. The coordinates or measures are out of bounds."

When I close this message-box and I try to move the feature again, it moves correctly.
When I comment out the line "pMap.ClearSelection" and run the code, the polygon moves at first attempt without any error-message.

What's wrong ?

harpo

Code:

Public Sub SelFeatures()

Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pFeatSel As IFeatureSelection
Dim pQF As IQueryFilter
Dim pSelSet As ISelectionSet

Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap

pMap.ClearSelection

Set pFeatSel = pMap.Layer(0)

Set pQF = New QueryFilter
pQF.WhereClause = "OBJECTID = 1"

pFeatSel.SelectFeatures pQF, esriSelectionResultNew, False
pFeatSel.SelectionChanged
pMxDoc.ActiveView.Refresh

Set pSelSet = pFeatSel.SelectionSet
Debug.Print pSelSet.Count

End Sub

Re: Coordinates or measures are out of bounds

SteffenKeller — Fri, 17 Sep 2010 12:59:12 GMT

🙂 I solved the problem by myself:

The reason is, that the SelectionAnchor-Point is not automatically displayed or updated.
I added the following (bold) lines, so the code is now:

Public Sub SelFeatures()

Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pFeatSel As IFeatureSelection
Dim pQF As IQueryFilter
Dim pSelSet As ISelectionSet

Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap

Dim pEditor As IEditor
Dim pID As New UID
pID = "esriEditor.Editor"
Set pEditor = Application.FindExtensionByCLSID(pID)

pMap.ClearSelection

Set pFeatSel = pMap.Layer(0)

Set pQF = New QueryFilter
pQF.WhereClause = "OBJECTID = 1"

pFeatSel.SelectFeatures pQF, esriSelectionResultNew, False
pFeatSel.SelectionChanged

If TypeOf pEditor.EditSelection.Next.Shape Is Polygon Then
Set pPolygon = pEditor.EditSelection.Next.Shape
Set pArea = pPolygon
pEditor.SelectionAnchor.MoveTo pArea.LabelPoint, pEditor.Display
End If

pMxDoc.ActiveView.Refresh

Set pSelSet = pFeatSel.SelectionSet
Debug.Print pSelSet.Count

End Sub

topic Coordinates or measures are out of bounds in ArcObjects SDK Questions

Coordinates or measures are out of bounds

Re: Coordinates or measures are out of bounds