椭圆体的画法

caijiansheng

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

玛法里奥

椭圆体：画出半个椭圆，建立面域，旋转实体，OK
. K# Y3 y9 ]0 U; U5 H椭圆柱：画整个椭圆，建立面域，拉伸面，OK.......

$ @4 X* h( ~* R[ 本帖最后由 玛法里奥 于 2008-4-9 11:29 编辑 ]

细看涛生

旋转或拉伸~~~,

kjllily

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

JSKSGS

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

woaishuijia

根据题意，首先在CAD三维空间画出椭圆体三个方向椭圆轮廓（见图1）。
% H. [+ A1 o5 `0 G0 F6 L% u

2 {3 g7 G# w! q6 `* l; g% z) W9 R

图1

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

* n5 i, ]5 i  N0 J( d8 |4 q& z% i
$ H3 P- y7 }- v, B( U" c

图2

但看一下楼主所给的参数，要画成千上万条线和椭圆，一般人恐怕没有这个耐心。所幸CAD的二次开发功能此时刚好能够派上用场。
首先建立椭圆体三个方向椭圆轮廓（参见图1）的解析式：
; V3 o- _, w4 f- Y3 u& g: |
- z. B4 {3 d7 K3 J  |6 e. m

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


; Q! Z! q! j: j; j
9 v; a( j, O2 Q& N7 c0 V( D

图3

1 @2 N& J7 Q: ^# d3 C! k2 A* y3 r同理，当以 平面剖切椭圆体时（见图4），截面椭圆的长、短半轴长度可分别由2、3式求得：
: n& R( F/ r# X/ S3 z9 C


; U+ B- ]8 p& R

图4

根据以上的数学模型，我们就可以利用CAD的VBA画出两个方向的截面椭圆。代码如下：
+ U$ M( _: R6 M1 P% }: B
Sub TYT()
( w$ ~, o, _# O8 }. k) Z* [
: \3 a8 d. @3 ~1 D: pDim 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#
& h4 `0 s9 A" {
- J5 J: l7 h* `" ~; \. `P(0) = 5650# * Sqr(1# - (C(2) / 950#) ^ 2)

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

( ]- u1 l, Q# ^; _& R# Z: x.ModelSpace.AddEllipse C, P, R
' W- c* I& w8 O1 O, f* C* N4 q# j
Next

/ I! S- y0 n6 F) V& rC(2) = 0

. a# U+ ]5 o( `# NP(0) = 0

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

% G0 k+ e2 V# \0 ~Y(0) = 0: Y(1) = 1: Y(2) = 0

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

  D* s4 ~4 I5 f.ActiveUCS = UCS
7 a7 P- y6 x/ X; _. _" c2 }
3 J2 @' C& S5 Y; `( n, E1 B) YFor 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)
! P+ I9 Y& I$ P2 J' B0 v
, _- Y( S, E. J- q.ModelSpace.AddEllipse C, P, R
( l( Q" H1 [& B/ R% T% O
Next
+ V6 X# O3 P3 E0 w  G6 Q; K
End With
; t  q6 P4 E! Q% Y) ?5 v, V7 HEnd Sub
: N; T2 s% }# \5 D+ E& V1 _& o
Alt+F11打开VBA编辑器，双击“工程资源管理器”的“Thisdrawing”对象，把上面的代码粘贴到代码窗口（见图5）
5 e) a5 m3 f+ z: z6 N% e
. ?  S' J* a$ B9 n$ N% M9 }
6 s/ J+ ]4 k; C$ d0 g3 M

图5

2 P% D0 \# ~& |, ]

4 ~- K8 a  E( V! bF5运行程序。由于楼主所给的椭圆体尺寸太大，而网格的尺寸相对很小，网格相当密集。为了大家查看方便，下面的效果图是用100＊100网格做的（见图6）。
6 `/ V2 `) K9 F" d* C/ e

2 u1 _/ Y* Y$ Z4 p) K

图6

6 a$ W* H% S* U+ k' n
现在把某个方向包括中线椭圆在内的半数椭圆保留下来，其它建模用不到的截面椭圆放在一个隐藏的图层里，在椭圆体的顶点画一个单点（见图7）


: U3 @* Z; F- o) x6 @

图7

- |5 k* W$ a/ P: D: p

放样之前把“DELOBJ”系统变量改为“0”，这是为了放样完成后保留截面椭圆。
( ?% ^* T* Q# z3 i0 L- b, M运行“放样”命令后，依次选取单点和截面椭圆，确定后选“仅横截面”选项，在弹出的“放样设置”对话框中把“拔模斜度”的“起点角度”改为“0”（见图8），这是为了单点处的圆滑过渡。
8 [" s7 z: c$ i8 r8 M( w
/ `- i6 ?# r+ p/ }) ?
: K: F( C! |% t( V

图8

& D# a/ n8 Z, p) H  Q: i确定后建立了半个椭圆体（见图9）。

图9

7 m( X1 j5 s' c4 N: y, o
镜像、并集成整个椭圆体，效果见图10
. E" O) Y9 B0 U) M0 N# Z* H8 s

9 j+ [1 S6 y; f4 ^/ M

图10

. B+ |7 K- G4 r7 N, w2 B
! P  l4 o! I: m0 t2 }7 F) L
  x2 Q" w" L, h+ S" H 椭圆体教程.rar (154.21 KB, 下载次数: 28)

2008-6-4 15:31 上传

点击文件名下载附件
椭圆体教程.doc

; \7 _: o: H7 b6 ^$ b2 f. H- _% ~6 y
5 B/ `! ~, m) J* {6 e, Z3 }