[求助]有没有简单的方法求弧线的中点
求弧线中点的简易方法 弧线是哪一种,圆弧还是多段线中的圆弧段。 多线段的弧 多段线中的圆弧段也是圆弧,按圆弧的计算方法吧。根据起点、终点和凸度来求。凸度为正表示正方向,即沿时钟的逆方向。 求解任意曲线中点的思路:引用CURVE类和VLAX类,本站可下载。
Dim oCurve as new curve
Dim dLength as double
Dim Pt as variant
Set oCurve.entity=Ent'(这个是你要求中点的曲线)
dLength=oCurve.Length
pt=oCurve.GetPointAtDistance(dLength/2)'(这里求出中点放入Pt)
Set oCurve=Nothing 可以这样做:一个弧的特征值有圆心、起始角、终止角。因此可以这样的思路,首先求出圆心角的角平分线,再求出它与弧的交点即可。该交点就是弧的中点
页:
[1]