Adjusting feature locations with spatial adjustment

// This method performs an affine transformation on features.

//Create control points for the transformation.
//Normally, these come from the from/to ends of displacement links.
List < IPoint > fromPoints = new List < IPoint > ();
fromPoints.Add(CreatePoint(5566626.728, 4948245.103));
fromPoints.Add(CreatePoint(5566858.655, 4948246.713));
fromPoints.Add(CreatePoint(5566686.32, 4948088.874));
IPoint[] fromPointsArray = fromPoints.ToArray();

List < IPoint > toPoints = new List < IPoint > ();
toPoints.Add(CreatePoint(5566895.699, 4948111.423));
toPoints.Add(CreatePoint(5566744.302, 4947960.026));
toPoints.Add(CreatePoint(5567013.273, 4947989.017));
IPoint[] toPointsArray = toPoints.ToArray();

//Define control points.
ITransformationMethodGEN transformMethod = new AffineTransformationMethodClass();
IMxDocument mxDoc = m_application.Document as IMxDocument;
try
{
    transformMethod.DefineFromControlPoints(ref fromPointsArray, ref toPointsArray,
        null, mxDoc.ActiveView.Extent);
}

catch (Exception ex)
{
    System.Windows.Forms.MessageBox.Show("Define Control Points failed.");
}

//Create a feature cursor based on the predefined query.
IFeatureLayer featureLayer = mxDoc.FocusMap.get_Layer(0)as IFeatureLayer;
if (featureLayer == null)
{
    System.Windows.Forms.MessageBox.Show(
        "Please load a feature layer as the first layer in TOC.");
    return ;
}

IFeatureClass featureClass = featureLayer.FeatureClass;
IQueryFilter queryFilter = new QueryFilterClass();
queryFilter.WhereClause = "diameter = 10";
IFeatureCursor featureCursor = featureClass.Search(queryFilter, false);

//Transform features.
IWorkspaceEdit workspaceEdit = featureClass.FeatureDataset.Workspace as
    IWorkspaceEdit;
workspaceEdit.StartEditOperation();
transformMethod.Transform(featureCursor, null);
workspaceEdit.StopEditOperation();

//Refresh the active view.
mxDoc.ActiveView.Refresh();

private IPoint CreatePoint(double xVal, double yVal)
{
    //This function creates a point.
    IPoint point = new PointClass();
    point.X = xVal;
    point.Y = yVal;
    return point;
}

'Perform an affine transformation on features.
'Create control points for the transformation.
'Normally, these come from the from/to ends of displacement links.
Dim fromPoints As List(Of IPoint) = New List(Of IPoint)
fromPoints.Add(CreatePoint(5566626.728, 4948245.103))
fromPoints.Add(CreatePoint(5566858.655, 4948246.713))
fromPoints.Add(CreatePoint(5566686.32, 4948088.874))
Dim fromPointsArray() As IPoint = fromPoints.ToArray()

Dim toPoints As List(Of IPoint) = New List(Of IPoint)
toPoints.Add(CreatePoint(5566895.699, 4948111.423))
toPoints.Add(CreatePoint(5566744.302, 4947960.026))
toPoints.Add(CreatePoint(5567013.273, 4947989.017))
Dim toPointsArray() As IPoint = toPoints.ToArray()

'Define control points.
Dim transformMethod As ITransformationMethodGEN = New AffineTransformationMethodClass()
Dim mxDoc As IMxDocument = TryCast(m_application.Document, IMxDocument)
Try
transformMethod.DefineFromControlPoints(fromPointsArray, _
                                        toPointsArray, Nothing, mxDoc.ActiveView.Extent)
Catch ex As Exception
System.Windows.Forms.MessageBox.Show("Define Control Points failed.")
End Try

'Create a feature cursor based on the predefined query.
Dim featureLayer As IFeatureLayer = TryCast(mxDoc.FocusMap.Layer(0), IFeatureLayer)
If (featureLayer Is Nothing) Then
    System.Windows.Forms.MessageBox.Show("Please load a feature layer as the first layer in TOC.")
    Return
End If
Dim featureClass As IFeatureClass = featureLayer.FeatureClass
Dim queryFilter As IQueryFilter = New QueryFilterClass()
queryFilter.WhereClause = "diameter = 10"
Dim featureCursor As IFeatureCursor = featureClass.Search(queryFilter, False)

'Transform features.
Dim workspaceEdit As IWorkspaceEdit = TryCast(featureClass.FeatureDataset.Workspace, IWorkspaceEdit)
workspaceEdit.StartEditOperation()
transformMethod.Transform(featureCursor, Nothing)
workspaceEdit.StopEditOperation()

'Refresh the active view.
mxDoc.ActiveView.Refresh()

Private Function CreatePoint(ByVal xVal As Double, ByVal yVal As Double) As IPoint
    'This function creates a point.
    Dim point As IPoint = New PointClass()
    point.X = xVal
    point.Y = yVal
    Return point
End Function

public void CreateDisplacementLink()
{
    //Create a displacement link from two points.
    //Get the map and reset graphics container.
    IMxDocument mxDocument = m_application.Document as IMxDocument;
    IMap map = mxDocument.FocusMap;
    IGraphicsContainer graphicsContainer = map as IGraphicsContainer;
    graphicsContainer.Reset();

    //Get the link symbol from the adjustment extension.
    IAdjustment adjustment = m_application.FindExtensionByName(
        "ESRI Adjustment Tools")as IAdjustment;
    IAdjustProperties adjustmentProperties = adjustment as IAdjustProperties;
    ILineSymbol linkSymbol = adjustmentProperties.DisplacementLinkSymbol;

    //Create the polyline from two points.
    IPoint fromPoint = new PointClass();
    fromPoint.PutCoords(115,  - 32);
    IPoint toPoint = new PointClass();
    toPoint.PutCoords(116,  - 31);

    IPolyline polyLine = new PolylineClass();
    polyLine.FromPoint = fromPoint;
    polyLine.ToPoint = toPoint;

    //Instantiate a new displacement link and set symbology.
    IDisplacementLinkElement link = new DisplacementLinkElementClass();
    link.Symbol = linkSymbol;
    IElement element = link as IElement;
    //Set the geometry and add to the graphics container.
    element.Geometry = polyLine;
    graphicsContainer.AddElement(element, 0);

    //Refresh the graphics.
    mxDocument.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null,
        null);
}

'Create a displacement link from two points
'Get the map and graphics container
Dim pMxDoc As IMxDocument = My.ArcMap.Document
Dim pMap As IMap = pMxDoc.FocusMap
Dim pGraCon As IGraphicsContainer = pMap
pGraCon.Reset()

'Get the link symbol from the adjustment extension
Dim pAdjust As IAdjustment = My.ArcMap.Application.FindExtensionByName("ESRI Adjustment Tools")
Dim pAdjustProp As IAdjustProperties = pAdjust
Dim pLinkSymbol As ILineSymbol = pAdjustProp.DisplacementLinkSymbol

'Create the polyline from two points
Dim pFromPoint As IPoint
pFromPoint = New Point
pFromPoint.PutCoords(115, -32)

Dim pToPoint As IPoint
pToPoint = New Point
pToPoint.PutCoords(116, -31)

Dim pPolyLine As IPolyline
pPolyLine = New Polyline
pPolyLine.FromPoint = pFromPoint
pPolyLine.ToPoint = pToPoint

'Instantiate a new displacement link and set symbology
Dim pLink As IDisplacementLinkElement
pLink = New DisplacementLinkElement
pLink.Symbol = pLinkSymbol
Dim pElement As IElement = pLink

'Set the geometry and add to the graphics container
pElement.Geometry = pPolyLine
pGraCon.AddElement(pElement, 0)

'Refresh the graphics
pMxDoc.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)