请问如何在CAD中画椭球体？

magicpu · 发表于 2005-7-27 10:56:00

请问如何在CAD中画椭球体？不知道为什么CAD中没有这个函数，本人尝试利用旋转椭圆的方法生成椭球体，但总是不能成功，还请大虾指教

marxbat · 发表于 2005-7-28 07:42:00

torus，“指定圆环体半径”输入负值，“指定圆管半径”时输入正值，圆管半径绝对值比圆环体半径绝对值大。

n4jnumz3lqu.jpg

承诺 · 发表于 2005-7-28 10:08:00

哈。。。又学了一招

magicpu · 发表于 2005-7-28 13:30:00

呵呵，谢了，昨天仔细研究了一下，终于搞定了
Public Sub AddMyEllipsoid(ellipsoid As EllipsoidModel)
Dim majAxis(0 To 2) As Double
Dim center(0 To 2) As Double
Dim radRatio As Double
Dim curves(0 To 1) As AcadEntity
Dim regionObj As Variant
Dim startpt(0 To 2) As Double
Dim endpt(0 To 2) As Double

center(0) = ellipsoid.cx: center(1) = ellipsoid.cy: center(2) = ellipsoid.cz
majAxis(0) = ellipsoid.rx: majAxis(1) = 0: majAxis(2) = 0
radRatio = ellipsoid.ry / ellipsoid.rx

Set curves(0) = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
curves(0).StartParameter = 0
curves(0).EndParameter = 3.141592

startpt(0) = ellipsoid.cx: startpt(1) = ellipsoid.cy: startpt(2) = ellipsoid.cz
endpt(0) = ellipsoid.rx: endpt(1) = 0: endpt(2) = 0

Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).StartPoint, curves(0).EndPoint)

regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
Set ModelObj = ThisDrawing.ModelSpace.AddRevolvedSolid(regionObj(0), startpt, endpt, 6.28)
End Sub
其中EllipsoidModel是个结构体