[VBA函数]：求助，如何在VBA中利用三点绘制圆弧？

gzmkshjsh · 发表于 2006-3-20 08:35:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何在VBA中利用三点，即起点、中点、终点绘制圆弧，并返回圆心坐标？
请高手指点！！！！

thooper · 发表于 2006-6-1 10:41:03

1. 选取三点startPt, midPt, endPt
2. 画直线line1 (startPt-midPt ) line2 (midPt-endPt)
3, 将直线line1 line2以他们的中点为基点各自Rotate  90度
4  利用IntersectWith求出两直线的交点，即圆弧的圆心
5  再计算出radius startAngle endAngle
6  addArc

呵呵不知道这样麻烦不麻烦？希望有更简单的方法！

cupidvenus · 发表于 2006-6-3 15:33:03

假定三点不共线，即三点构成三角形，三点坐标分别为
startPt(x1,y1),midPt(x2,y2),endPt(x3,y3)
则圆心坐标为O((x1+x2+x3)/3,(y1+y2+y3)/3)
然后就可画出弧了

125740513 · 发表于 2006-6-25 11:58:34

3楼的要简便一些。可以参考cad自身的命令来实现

Victorwu · 发表于 2006-8-12 18:19:02

3楼的公式是错误的

其实只要判断一下3点不在一条直线上，然后调用cad命令arc三点画弧画出弧线，在查看最后一个图素object.Center即可。

账号		自动登录	找回密码
密码			立即注册

[VBA函数]：求助，如何在VBA中利用三点绘制圆弧？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子