非常简单 使用 Graphics3D 函数 下面演示随机生成1000个随机三维坐标,并以散点图方式绘出 n = 1000; record = {}; Do[a = RandomReal[{-1, 1}]; b = RandomReal[{-1, 1}]; c = RandomReal[{-1, 1}]; record = AppendTo[record, Point[{a, b, c}]], {k, 1, n}]; a = Graphics3D[record]; Show[a] 得到 END