Generate and Display Elements in a Lattice
Use both built-in functions and built-in data to generate lattices.
b = Normal@LatticeData["FaceCenteredCubic", "Basis"];
l1 = Flatten[Table[i b[[1]] + j b[[2]] + k b[[3]], {i, 0, 5}, {j, 0, 5}, {k, 0, 5}], 2];
l2 = Tuples[Range[0, 5], 3].b;Graphics3D[Map[Sphere[#, .2]&, #], Boxed -> True, Axes -> True]& /@ {l1, l2}