Needs["Crystallica`"];
cry=Legended[CrystalPlot[{{5,0,0},{0,5,0},{0,0,5}},{{0,0,0},{0,.5,.5},{.5,.5,0},{.5,0,.5},{.5,0,0},{0,.5,0},{0,0,.5},{.5,.5,.5}},{1,1,1,1,2,2,2,2},AtomCol->{"Na","Cl"},AtomRad->{0.35,0.45},BondStyle->2,BondDist->3,BondRad->0.15,CellLineStyle->False,AddQ->True,Lighting->{{"Directional",White,ImageScaled[{0,0,1}]}},ImageSize->300],Placed[SwatchLegend[{ColorData["Atoms","Na"],ColorData["Atoms","Cl"]},{"(SuperPlus[Na])","(SuperMinus[Cl])"}],After]];
Show[cry,Background->White]
Export[NotebookDirectory[]<>"NaCl.pdf",cry]

cry1=CrystalPlot[{{5,0,0},{0,5,0},{0,0,5}},{{0,0,0},{0,.5,.5},{.5,.5,0},{.5,0,.5}},{1,2,2,2},AtomCol->{"Na","Na"},AtomRad->{0.35,0.35},BondStyle->0,BondDist->-3,BondRad->0.03,CellLineStyle->{1,0},BondCol->LightGray,AddQ->True,Lighting->{{"Directional",White,ImageScaled[{0,0,1}]}},Background->White,ImageSize->300,ForceBonds->{"AtomsStrong"->{{1,9},{1,12},{1,13},{5,7},{5,10},{5,14},{7,10},{7,14},{12,9},{12,13},{10,14},{9,13}}}];
Show[cry1,Background->White]
Export[NotebookDirectory[]<>"FCC.pdf",cry1]