ArcObjects Library Reference (Geometry)

IConstructCircularArc.ConstructTangentAngleChord Method

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

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

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

[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
CentralAngle 
  CentralAngle is a parameter of type double
chordDistance 
  chordDistance is a parameter of type double

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

[C#]

private void ConstructTangentAngleChord()
{
  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.ConstructTangentAngleChord(line as ISegment, false, true, Math.PI, 100);
   
  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 ConstructTangentAngleChord()
        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.ConstructTangentAngleChord(pLine1, False, False, Pi, 100)

        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