使用多面体作为图形基元，放置点和缩放

Question

我可以问一个简单的初学者的问题，在我的任何一个文本中都无法找到一个易于理解的答案（在某些情况下，这些文本已经很老了，早于版本6）？你如何使用多面体，就好像它们是像Sphere和Cuboid这样的图形基元？即，以一个点为中心并缩放。以下是愚蠢的例子来说明这一点：

(* spheres along a path *)
data = Table[{Cos[t], Sin[t], Sin[t] Cos[2 t]}, {t, 0, 2 Pi, Pi/24}];
Graphics3D[Sphere[#, 0.3] & /@ data]

(* cubes along a path *)
Graphics3D[Cuboid[#, # + 0.1] & /@ data]

那么如何将icosahedra放置在特定的点和比例上，写出类似

的内容

Graphics3D[icosahedron[#, 0.1] & /@ data]

编辑：我认为我的问题是如何让GraphicsComplex和Graphics3D一起工作。例如，我目前在哪里：

shapes[ct_, siz_] := {Sphere[ct - .2, siz ], Sphere[ct - 0.1, siz]};
Graphics3D[{{shapes[#, size] & /@ data}}]

我想将Sphere[]替换为icosahedron[]。我目前正试图让Heike的解决方案有效......

编辑2：现在工作正常，谢谢Heike。不确定我会不会得到3D打印 - 看起来有点不舒服......

Answer 1

你可以这样做：

icosahedron = PolyhedronData["Icosahedron"][[1]];
Graphics3D[Translate[Scale[icosahedron, .1], #] & /@ data]