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

Question

我需要将地球的 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?就观点而言，这几乎正是我需要做的。

Answer 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在应用程序下，地球纹理