This document is archived and information here might be outdated. Recommended version. |
Constructs an arc having a common tangent to the input segment, a given radius and an arc length.
[Visual Basic .NET] Public Sub ConstructTangentRadiusArc ( _ ByVal Segment As ISegment, _ ByVal atStart As Boolean, _ ByVal isCCW As Boolean, _ ByVal inRadius As Double, _ ByVal arcDistance As Double _ )
[C#] public void ConstructTangentRadiusArc ( ISegment Segment, bool atStart, bool isCCW, double inRadius, double arcDistance );
[C++]
HRESULT ConstructTangentRadiusArc(
ISegment* Segment,
VARIANT_BOOL atStart,
VARIANT_BOOL isCCW,
double inRadius,
double arcDistance
);
[C++]
Parameters Segment
Segment is a parameter of type ISegment* atStart
atStart is a parameter of type bool isCCW
isCCW is a parameter of type bool inRadius
inRadius is a parameter of type double arcDistance
arcDistance is a parameter of type double
Constructs a CircularArc given the Tangent Segment, the desired segment endpoint (the From Point), the desired orientation, the desired Radius, and the desired CircularArc Length. If the Arc Distance is greater than 2 * Pi * Radius, a full circle is constructed.
-isCCW stands for "is counter clockwise"
private void ConstructTangentRadiusArc() { IConstructCircularArc constructCircularArc=new CircularArcClass(); ICircularArc circularArc=constructCircularArc as ICircularArc; IPoint fromPoint=new PointClass(); IPoint toPoint=new PointClass(); fromPoint.PutCoords(100, 100); toPoint.PutCoords(50, 50); ILine line=new LineClass(); line.PutCoords(fromPoint, toPoint); constructCircularArc.ConstructTangentRadiusArc(line as ISegment, false, true, 50, 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); }
Private Sub ConstructTangentRadiusArc()
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 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)
'The angles should be in Radians (Radians=Degrees * PI/180)
pConstructCircularArc.ConstructTangentRadiusArc(pLine1, False, True, 50, 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
IConstructCircularArc Interface | IConstructCircularArc.ConstructTangentAngleTangent Method | IConstructCircularArc.ConstructTangentAngleChord Method | IConstructCircularArc.ConstructTangentArcTangent Method | IConstructCircularArc.ConstructTangentAngleArc Method | IConstructCircularArc.ConstructTangentChordTangent Method | IConstructCircularArc.ConstructTangentRadiusAngle Method | IConstructCircularArc.ConstructTangentRadiusArc Method | IConstructCircularArc.ConstructTangentAndPoint Method | IConstructCircularArc.ConstructTangentRadiusChord Method | IConstructCircularArc.ConstructTangentRadiusTangent Method | IConstructCircularArc.ConstructTangentChordArc Method