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

Question

我需要将地球的3D模型合并到我在Mathematica中创建的卫星轨道拦截模拟中(我需要它与"Graphics3D []"一起工作.我已经下载了几种不同的模型,Mathematica声称支持这些模型,我甚至在Pro/E中创建了我自己的.实际上导入到程序中的那些(使用"Import []")丢失了它们的表面图像,我留下了一个通用的球体.我怎样才能将自定义3D图形正确导入到Mathematica？某些格式比其他格式更好吗？(我一直在使用大多数CAD模型)是否可以为Mathematica下载更多(用户创建的)3D图形？

我知道这是可能的,因为Belisarius在这里回答了一个问题: 如何在Wolfram Mathematica中使用相机跟随对象创建2D(3D)动画？ 就观点而言,这几乎就是我需要做的事情.

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 Under Applications,Earth Texture