关于您发布的示例,我认为GetClosestPointTo方法调用是不必要的。这就足够了:
- Dim mp2 As Point3d = arc.GetPointAtParameter((arc.EndParam + arc.StartParam) / 2)
CircularArc2d以类似的方式工作。因为循环arrc2d继承自Curve2d,所以应该得到一个中点。
- Dim mp as Point2D = ca2d.EvaluatePoint((ca2d.EndAngle + ca2d.StartAngle)/2)
|