求在CAD2007中，用VBA语言画圆弧的程序，急急！！

fuyaolhy

求教：已知圆心坐标，半径，起点坐标和圆弧角度，怎么画出圆弧？！

woaishuijia

你不觉得已知条件太多了吗?

sscylh

object.AddArc(Center, Radius, StartAngle, EndAngle)
startangle:可以根据圆心坐标和起点坐标计算出startangle
endangle:可以根据startangle和圆弧角度算出endangle
vba中创建圆弧addarc就这一种....

fuyaolhy

sscylh 发表于 2012-9-10 20:07
object.AddArc(Center, Radius, StartAngle, EndAngle)
startangle:可以根据圆心坐标和起点坐标计算出star ...

非常感谢，已经会画了

fuyaolhy

woaishuijia 发表于 2012-9-10 20:00
你不觉得已知条件太多了吗?

你愿意教就教，不爱教就算，我就是在学习呢，你说这没用的干嘛

woaishuijia

fuyaolhy 发表于 2012-9-11 06:37
你愿意教就教，不爱教就算，我就是在学习呢，你说这没用的干嘛

废话？
唉，说你什么好呢？
既然你认为这是废话，我就再废几句，把你一楼的条件细化一下：圆心（0,0），起点坐标（100,100），半径5，角度90度。请你画这个圆弧。
如果你认为自己画出来了，就请再检查一下圆弧起点是否符合已知条件？
如果你承认自己画不出来，就请你仔细研究我二楼的废话，希望你能从中悟到点东西。

crazylsp

怎样从画出来的找出另一个端点呢？
假设点1坐标已知,可先求点o与点1的斜率k1=(y1-b)/(x1-a)=tan<1,
                                    k2=tan,  k2=tan(<1-C),
                                                x2=a+R.cos(<1-C),
                                                y2=b+R.sin(<1-C),
追问
你式子里的x2=a+R.cos(<1-C)该不会是x2=a+R×cos(<1-C)吧，而且cos(<1-C)是什么意思？这如果我要带入数字该怎做啊？
回答
角1是点1与X轴正方向所成的夹角.   以圆心为原点建立直角坐标系.  是角1与角C的差的余弦.
不是以圆心为原点建立直角坐标系的.   
我仔细看了下,原来直角坐标系是隐含存在的,  但角1是点1与圆心O的连线所在的直线与X轴正方向的夹角.  
呵呵,是不是很饶口啊