topic Re: Zoom to Point Feature and Set Scale in ArcObjects SDK Questions

Zoom to Point Feature and Set Scale

AdamVellutini — Thu, 22 Apr 2010 21:48:34 GMT

I am set up to zoom to a selected point through a button on a custom form. My map centers on the point just fine. I would like to zoom in on that point rather than remain at the scale I am at. Say, zoom to a 2400 scale. Is there a way that I can set that while zooming to my point?

Thanks, Adam

Zoom to Point Feature and Set Scale

SaqibMehmood — Fri, 23 Apr 2010 04:42:31 GMT

You need to calculate the Extent, and then you can set IMap.Extent to zoom the map to a specific scale.

Re: Zoom to Point Feature and Set Scale

MichaelKartusch — Wed, 29 Sep 2010 20:22:25 GMT

I am having trouble zooming to a selected point. My code selects the point just fine, but the code I used to zoom to a selected polygon does not work when I try applying it to a point. I have separate buttons in my project, one executes the zoom to a selected polygon, while the other button is designed to execute a zoom to a selected point. Any ideas?

' Now do the zoom to the selected features
Dim pSelSet As ISelectionSet
Set pSelSet = pFeatureSelection.SelectionSet
Dim pEnumGeom As IEnumGeometry
Dim pEnumGeomBind As IEnumGeometryBind

Set pEnumGeom = New EnumFeatureGeometry
Set pEnumGeomBind = pEnumGeom
pEnumGeomBind.BindGeometrySource Nothing, pSelSet

Dim pGeomFactory As IGeometryFactory
Set pGeomFactory = New GeometryEnvironment

Dim pGeom As IGeometry
Set pGeom = pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)

pMxDoc.ActiveView.Extent = pGeom.Envelope
pFeatureSelection.Clear
pMxDoc.ActiveView.Refresh
pMxDoc.PageLayout.ZoomToWhole

Thanks,
Michael

Re: Zoom to Point Feature and Set Scale

JeffMatson — Thu, 30 Sep 2010 13:50:11 GMT

A single point will not have an envelope. What you can do instead is:

create a new Envelope and set it to your activeView.Extent
center the Envelope on your point using Envelope.CenterAt
set your activeView.Extent to the modified Envelope
optionally modify the map scale
refresh

If you want to use this in conjunction with your zoom to polygon code you could check the type of geometry, i.e.:

If Geometry.GeometryType = esriGeometryPoint then
'center on point
Else
'zoom to polygon/polyline/mutipoint etc.
End if