Jozi68 发表于 2022-7-6 11:27:00

vb。净弧和圆弧2d

我使用以下coe获得圆弧的中点：
尺寸mp2为点3D=_
弧GetClosestPointTo（弧.GetPointAtParameter（（弧.EndParam+弧.StartParam）/2），弧。正常，错误）
 
但是我如何得到循环的中点呢？

SEANT 发表于 2022-7-6 12:09:12

关于您发布的示例，我认为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)

Jozi68 发表于 2022-7-6 12:37:07

Thanx SEANT，它起作用了。
页: [1]
查看完整版本: vb。净弧和圆弧2d