ArcObjects Library Reference (Geometry)

IConstructCircularArc.ConstructTangentChordArc Method

[Visual Basic .NET]
Public Sub ConstructTangentChordArc ( _
    ByVal Segment As ISegment, _
    ByVal atStart As Boolean, _
    ByVal isCCW As Boolean, _
    ByVal chordDistance As Double, _
    ByVal arcDistance As Double _
)

[C#]
public void ConstructTangentChordArc (
    ISegment Segment,
    bool atStart,
    bool isCCW,
    double chordDistance,
    double arcDistance
);

[C++]
HRESULT ConstructTangentChordArc(
  ISegment* Segment,
  VARIANT_BOOL atStart,
  VARIANT_BOOL isCCW,
  double chordDistance,
  double arcDistance
);

[C++]
Parameters
Segment 
  Segment is a parameter of type ISegment
atStart 
  atStart is a parameter of type VARIANT_BOOL
isCCW 
  isCCW is a parameter of type VARIANT_BOOL
chordDistance 
  chordDistance is a parameter of type double
arcDistance 
  arcDistance is a parameter of type double

Available with ArcGIS Engine, ArcGIS Desktop, and ArcGIS Server.

[C#]

private void ConstructTangentChordArc()
{
  IConstructCircularArc constructCircularArc = new CircularArcClass();
  ICircularArc circularArc = constructCircularArc as ICircularArc;
  
  IPoint fromPoint = new PointClass();
  fromPoint.PutCoords(100, 100);
  IPoint toPoint = new PointClass();
  toPoint.PutCoords(100, 400);
  ILine line = new LineClass();
  line.PutCoords(fromPoint, toPoint);
  //The angles should be in Radians (Radians = Degrees * PI/180)
  constructCircularArc.ConstructTangentChordArc(line as ISegment, false, true, 100, 157.08);
   
  String report = "Length : " + circularArc.Length + "\n" +
                  "Radius : " + circularArc.Radius + "\n" +
                  "Chord Height : " + circularArc.ChordHeight + "\n" +
                  "Central Angle (Rad) : " + circularArc.CentralAngle + "\n" +
                  "From Angle (Rad) : " + circularArc.FromAngle + "\n" +
                  "To Angle (Rad) : " + circularArc.ToAngle + "\n" +
                  "Center Point : " + circularArc.CenterPoint.X + " , " + circularArc.CenterPoint.Y + "\n" +
                  "From Point : " + circularArc.FromPoint.X + " , " + circularArc.FromPoint.Y + "\n" +
                  "To Point : " + circularArc.ToPoint.X + " , " + circularArc.ToPoint.Y;
  System.Windows.Forms.MessageBox.Show(report);
}

[Visual Basic .NET]

    Private Sub ConstructTangentChordArc()
        Dim pConstructCircularArc As ESRI.ArcGIS.Geometry.IConstructCircularArc
        Dim pCArc As ESRI.ArcGIS.Geometry.ICircularArc
        Dim Pi As Double
        Dim pToPoint As ESRI.ArcGIS.Geometry.IPoint
        Dim pFromPoint As ESRI.ArcGIS.Geometry.IPoint
        Dim pPoint As ESRI.ArcGIS.Geometry.IPoint
        Dim pLine1 As ESRI.ArcGIS.Geometry.ILine

        pConstructCircularArc = New ESRI.ArcGIS.Geometry.CircularArc
        pCArc = pConstructCircularArc
        Pi = 4 * Math.Atan(1) 'Calculate the value of pi.
        pFromPoint = New ESRI.ArcGIS.Geometry.Point
        pToPoint = New ESRI.ArcGIS.Geometry.Point
        pLine1 = New ESRI.ArcGIS.Geometry.Line
        pFromPoint.PutCoords(100, 100)
        pToPoint.PutCoords(100, 400)
        pLine1.PutCoords(pFromPoint, pToPoint)
        pPoint = New ESRI.ArcGIS.Geometry.Point
        pPoint.PutCoords(200, 400)
        'The angles should be in Radians (Radians = Degrees * PI/180)
        pConstructCircularArc.ConstructTangentChordArc(pLine1, False, True, 100, 157.08)
        Debug.Print("Length : " & pCArc.Length)
        Debug.Print("Radius : " & pCArc.Radius)
        Debug.Print("Chord Height : " & pCArc.ChordHeight)
        Debug.Print("Central Angle (Rad) : " & pCArc.CentralAngle)
        Debug.Print("From Angle (Rad) : " & pCArc.FromAngle)
        Debug.Print("To Angle (Rad) : " & pCArc.ToAngle)
        Debug.Print("Center Point : " & pCArc.CenterPoint.X & " , " & pCArc.CenterPoint.Y)
        Debug.Print("From Point : " & pCArc.FromPoint.X & " , " & pCArc.FromPoint.Y)
        Debug.Print("To Point : " & pCArc.ToPoint.X & " , " & pCArc.ToPoint.Y)
    End Sub