vb.net Arc and CircularArc2d

[Jozi68]

I am using the following coe to get the midpoint of an Arc:

Dim mp2 As Point3d = _

arc.GetClosestPointTo(arc.GetPointAtParameter((arc.EndParam + arc.StartParam) / 2), arc.Normal, False)

 

But how do I get the midpoint of a CircularArc2d?

[SEANT]

With regard to your posted example, I think the GetClosestPointTo method call is unnecessary. This should suffice:

 

Dim mp2 As Point3d = arc.GetPointAtParameter((arc.EndParam + arc.StartParam) / 2)

 

A CircularArc2d works in a similar fashion. Because a CircularArc2d inherits from Curve2d, this should get a midpoint.

 

Dim mp as Point2D = ca2d.EvaluatePoint((ca2d.EndAngle + ca2d.StartAngle)/2)

[Jozi68]

Thanx SEANT, it's working.