Rotating and Moving Geometry

January 8th, 2008 Noor Posted in ArcObjects C# |

well, im back after a while , i was into ArcGIS Server for a couple of months, i was given a task to simple transformation on geometry and after some research i found out that it can be done without doing an edit session using ITransform2D and IFeature.store so that we get the transformation done and save, the following are some functions that i used to achieve the tasks,

Rotating A Polygon Around A Pivot Point
=============================
[ This code assumes that there is a Point feature inside the polygon, the concept is the same you can customize it but its not necessary since you rotation point can be anyware ]

Dim pTransform As ITransform2D
Dim pPolygon As IPolygon
Dim pFSel As IFeatureSelection
Dim pSelSet As ISelectionSet
Dim pFeature As IFeature
Dim sLayerName As String
Dim pFCursor As IFeatureCursor
Dim Pi As Double

'If Not IsFeatureSelected Then
'MsgBox "Select The Polgon Please"
'Exit Sub
'End If

Pi = 4 * Atn(1)

Set pMapLayer = pMxdocument.FocusMap.Layer(GetLayerIndexByName("Oil_Fields_Poly"))

If pFeature Is Nothing Then

Set pFSel = pMapLayer
Set pSelSet = pFSel.SelectionSet

pSelSet.Search Nothing, False, pFCursor
Set pFeature = pFCursor.NextFeature
pMxdocument.FocusMap.ClearSelection
End If

Set pPolygon = pFeature.Shape
Set pRotationPoint = GetWellWithinPolygon(pPolygon)

Set pTransform = pPolygon

'RotationAngle = GetRotationAngle

If (scrRotate.Value > ScrollBarOldValue) Then
RotationAngle = (scrRotate.Value - (scrRotate.Value - 1)) * (Pi / 180)
Else
RotationAngle = (scrRotate.Value - (scrRotate.Value - 1)) * (Pi / 180) * -1
End If

ScrollBarOldValue = scrRotate.Value

pTransform.Rotate pRotationPoint, RotationAngle

pFeature.Store

Dim pRotationEnvelop As IEnvelope
Set pRotationEnvelop = New Envelope

Set pRotationEnvelop = pPolygon.Envelope

pMxdocument.ActiveView.PartialRefresh esriViewGeography, pMapLayer, pRotationEnvelop
pMxdocument.ActiveView.PartialRefresh esriViewGeoSelection, pMapLayer, pRotationEnvelop

Moving A Polygon
=============

Dim pTransform As ITransform2D
Dim pPolygon As IPolygon
Dim pFeature As IFeature
Dim pFeatureSelection As IFeatureSelection
Dim pSelectionSet As ISelectionSet
Dim sLayerName As String
Dim dX As Double
Dim dY As Double

If Not IsFeatureSelected Then
MsgBox "Select The Polygon Please"
Exit Sub
End If

Set pMapLayer = pMxdocument.FocusMap.Layer(GetLayerIndexByName("Oil_Fields_Poly"))

Set pFeatureSelection = pMapLayer
Set pSelectionSet = pFeatureSelection.SelectionSet

Dim pFeatureCursor As IFeatureCursor
pSelectionSet.Search Nothing, False, pFeatureCursor
Set pFeature = pFeatureCursor.NextFeature

Set pPolygon = pFeature.Shape

SelectPointFeatureWithinPolygon pPolygon

Set pTransform = pPolygon

dX = 0
dY = 3

pTransform.Move dX, dY

pFeature.Store

Set pMapLayer = pMxdocument.FocusMap.Layer(GetLayerIndexByName("Oil_Fields"))

Set pFeatureSelection = pMapLayer
Set pSelectionSet = pFeatureSelection.SelectionSet

pSelectionSet.Search Nothing, False, pFeatureCursor
Set pFeature = pFeatureCursor.NextFeature

Set pPoint = pFeature.Shape

Set pTransform = pPoint

pTransform.Move dX, dY

pFeature.Store
Dim pRotationEnvelop As IEnvelope
Set pRotationEnvelop = New Envelope

Set pRotationEnvelop = pPolygon.Envelope

pMxdocument.ActiveView.PartialRefresh esriViewGeography, pMapLayer, pRotationEnvelop
pMxdocument.ActiveView.PartialRefresh esriViewGeoSelection, pMapLayer, pRotationEnvelop

Rotating and Moving Geometry

Leave a Reply

SMS ME

Resent Posts

Pages

Archives

Categories