如何让自定义 3D 图形在 Mathematica 中正确显示？答案

【问题标题】：How do you get custom 3D graphics to display properly in Mathematica?如何让自定义 3D 图形在 Mathematica 中正确显示？
【发布时间】：2011-04-09 06:24:37
【问题描述】：

我需要将地球的 3D 模型合并到我在 Mathematica 中创建的卫星轨道拦截模拟中（我需要它与“Graphics3D[]”一起使用）。我已经下载了 Mathematica 声称支持的几种不同格式的模型我什至在 Pro/E 中创建了自己的。实际上导入到程序中的那些（使用“Import []”）丢失了它们的表面图像，我只剩下一个通用球体。我怎样才能获得自定义 3D 图形正确导入 Mathematica？某些格式是否比其他格式更好？（我主要使用 CAD 模型）还有地方可以下载更多（用户创建的）Mathematica 3D 图形吗？

我知道这是可能的，因为贝利撒留在回答这里的问题时这样做了： How to create 2D (3D) animation in Wolfram Mathematica with the camera following the object? 就视图而言，这几乎正是我需要做的。

【问题讨论】：

标签： graphics import wolfram-mathematica

【解决方案1】：

myEarth = 
 ParametricPlot3D[{Cos@u Sin@v, Sin@u Sin@v, Cos@v}, {u, 0, 2 Pi}, {v, 0, Pi}, 
   Mesh -> None, TextureCoordinateFunction -> ({#4, 1 - #5} &), 
   PlotStyle -> Texture[Show[map, ImageSize -> 1000]]];  

a = {-1, 1};
Animate[
 Show[
  Graphics3D[Sphere[{0, 0, 0}, .5], 
   ViewPoint -> 3.5 {Cos@t, Sin@t, 0}, SphericalRegion -> True, 
   PlotRange -> {a, a, a}, Axes -> False, Boxed -> False],
   myEarth], 
{t, 0, 2 Pi}]

编辑

我从那里借用了一些代码：http://reference.wolfram.com/mathematica/ref/Texture.html 在 Applications 下，Earth Texture

【讨论】：

@Simon 正如我所说，我已经准备好了:)。顺便说一句，您的另一个问题中的 ColorData[] 问题对于一个完整而强大的解决方案来说太棘手了。我猜从版本 1 开始，默认调色板被一层又一层地埋没了。希望 Michael 或 Daniel 能看到那个。您可以在评论中 ping 他们。
@belisarius：关于 ColorData 的问题：我想是这样的。我可能会 ping 他们或询问 WRI 支持人员...
@belisarius Ahhhh，我必须在导入后将图像映射到球体上。我不知道我能做到这一点。谢谢！现在这是真正的问题，有没有办法像对 Graphics3D 对象那样移动/缩放/定向它？
非常可爱！顺便说一句，如果您厌倦了球体，请参阅demonstrations.wolfram.com/ProjectionOfEarthOnPolyhedra，但您必须手动旋转地球！
@David 非常好的演示。顺便说一句，没有人意识到我的 Plot 真的是一个伪装的时间逆转机器。