[求助]：如何画椭圆弧

200142066 · 发表于 2005-6-7 00:44:57

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

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

×

向各位请教过长轴两端点,和短轴一端点画椭圆弧的命令是什么?

misters · 发表于 2005-6-7 09:27:53

Dim ellObj As AcadEllipse
Dim majAxis(0 To 2) As Double
Dim center(0 To 2) As Double
Dim radRatio As Double

' Create an ellipse in model space
center(0) = 5#: center(1) = 5#: center(2) = 0#
majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
radRatio = 0.3
Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
ZoomAll

200142066 · 发表于 2005-6-8 13:32:31

谢谢楼上的,这是画椭圆的程序,我知道,我想要的是椭圆的一半,上半弧或下半弧,改如何做呢?

雪山飞狐(lzh) · 发表于 2005-6-8 14:02:13

改变椭圆的起始角度和终止角度

200142066 · 发表于 2005-6-10 21:48:51

该如何改变角度呢?
能不能给两行程序?
这两天就要交论文了,谢谢啦!

雪山飞狐(lzh) · 发表于 2005-6-11 15:42:33

Sub tt()
Dim ellObj As AcadEllipse
Dim majAxis(0 To 2) As Double
Dim center(0 To 2) As Double
Dim radRatio As Double

' Create an ellipse in model space
center(0) = 5#: center(1) = 5#: center(2) = 0#
majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
radRatio = 0.3
Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)

ellObj.StartAngle = 0
ellObj.EndAngle = Atn(1) * 4

End Sub

200142066 · 发表于 2005-6-13 01:06:36

原来是这样，谢谢版主

empireman · 发表于 2005-8-19 15:15:40

谢谢指点~~~

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

[求助]：如何画椭圆弧

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

相关帖子