椭圆体的画法

caijiansheng · 发表于 2008-4-9 11:24:54

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

请教各位大虾，我知道一个椭圆平面，长轴为11300，短轴为7398。还知道椭圆的高，高为1900。请问如何画出这个椭圆体。还有怎么在那个椭圆体上画出10*10网格线。

玛法里奥 · 发表于 2008-4-9 11:26:20

椭圆体：画出半个椭圆，建立面域，旋转实体，OK
椭圆柱：画整个椭圆，建立面域，拉伸面，OK.......

[ 本帖最后由玛法里奥于 2008-4-9 11:29 编辑 ]

细看涛生 · 发表于 2008-4-9 12:02:25

旋转或拉伸~~~,

kjllily · 发表于 2008-4-9 12:31:02

如果是07以后的版本，应该可以用放样做出来的

JSKSGS · 发表于 2008-4-9 12:57:59

二楼的椭圆体的画法是正确的

woaishuijia · 发表于 2008-6-4 15:31:52

根据题意，首先在CAD三维空间画出椭圆体三个方向椭圆轮廓（见图1）。

图1

从理论上，我们只要依次画出截面椭圆（见图2）――在两个方向上画出的截面椭圆即可构成楼主所要的网格――然后利用CAD的放样命令建立三维模型即可。

图2

但看一下楼主所给的参数，要画成千上万条线和椭圆，一般人恐怕没有这个耐心。所幸CAD的二次开发功能此时刚好能够派上用场。
首先建立椭圆体三个方向椭圆轮廓（参见图1）的解析式：

当以

平面剖切椭圆体时（见图3），截面椭圆的长、短半轴长度可分别由1、2式求得：

图3

同理，当以

平面剖切椭圆体时（见图4），截面椭圆的长、短半轴长度可分别由2、3式求得：

图4

根据以上的数学模型，我们就可以利用CAD的VBA画出两个方向的截面椭圆。代码如下：

Sub TYT()

Dim UCS As AcadUCS, X(2) As Double, Y(2) As Double

Dim I As Integer, C(2) As Double, P(2) As Double, R

With ThisDrawing

.SendCommand "-view top "

For I = -950 / 10 + 1 To 950 / 10 - 1

C(2) = CDbl(I) * 10#

P(0) = 5650# * Sqr(1# - (C(2) / 950#) ^ 2)

R = 3699# * Sqr(1# - (C(2) / 950#) ^ 2) / P(0)

.ModelSpace.AddEllipse C, P, R

Next

C(2) = 0

P(0) = 0

X(0) = 0: X(1) = 0: X(2) = 1

Y(0) = 0: Y(1) = 1: Y(2) = 0

Set UCS = .UserCoordinateSystems.Add(C, X, Y, "New_UCS")

.ActiveUCS = UCS

For I = -5650 / 10 + 1 To 5650 / 10 - 1

C(0) = CDbl(I) * 10#

P(1) = 3699# * Sqr(1# - (C(0) / 5650#) ^ 2)

R = 950# * Sqr(1# - (C(0) / 5650#) ^ 2) / P(1)

.ModelSpace.AddEllipse C, P, R

Next

End With
End Sub

Alt+F11打开VBA编辑器，双击“工程资源管理器”的“Thisdrawing”对象，把上面的代码粘贴到代码窗口（见图5）

图5

F5运行程序。由于楼主所给的椭圆体尺寸太大，而网格的尺寸相对很小，网格相当密集。为了大家查看方便，下面的效果图是用100＊100网格做的（见图6）。

图6

现在把某个方向包括中线椭圆在内的半数椭圆保留下来，其它建模用不到的截面椭圆放在一个隐藏的图层里，在椭圆体的顶点画一个单点（见图7）

图7

放样之前把“DELOBJ”系统变量改为“0”，这是为了放样完成后保留截面椭圆。
运行“放样”命令后，依次选取单点和截面椭圆，确定后选“仅横截面”选项，在弹出的“放样设置”对话框中把“拔模斜度”的“起点角度”改为“0”（见图8），这是为了单点处的圆滑过渡。

图8

确定后建立了半个椭圆体（见图9）。

图9

镜像、并集成整个椭圆体，效果见图10

图10

椭圆体教程.rar (154.21 KB, 下载次数: 28)

		自动登录	找回密码
密码			注册

通知

[已答复] 椭圆体的画法

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块