SimCube = Normal@LatticeData["SimpleCubic", "Basis"]
Lat = Flatten[Table[i SimCube[[1]] + j SimCube[[2]] + k SimCube[[3]], {i, 0, 5}, {j, 0, 5}, {k, 0, 2}], 2];
Graphics3D[Map[Sphere[#, .2] &, #], Boxed -> True, Axes -> True,ImageSize -> 300] & /@ {Lat}