Code:
CreatePrim("Sphere", "MeshSurface", null, null);
SetValue("sphere.sphere.radius", 2, null);
SetValue("sphere.polymsh.geom.subdivu", 6, null);
SetValue("sphere.polymsh.geom.subdivv", 6, null);
ApplyShader("$XSI_DSPRESETS\\Shaders\\Material\\Lambert.Preset", "", null, "", siLetLocalMaterialsOverlap);
SetValue("sphere.Material.Lambert.diffuse.red", 0, null);
SetValue("sphere.Material.Lambert.diffuse.green", 0, null);
SetValue("sphere.Material.Lambert.diffuse.red", 0, null);
SetValue("sphere.Material.Lambert.diffuse.green", 0, null);
SetValue("sphere.Material.Lambert.diffuse.blue", 0, null);
SetValue("sphere.Material.Lambert.reflectivity.red", 0.854, null);
SetValue("sphere.Material.Lambert.reflectivity.green", 0.854, null);
SetValue("sphere.Material.Lambert.reflectivity.blue", 0.854, null);
CreatePrim("Grid", "MeshSurface", null, null);
SetValue("grid.grid.ulength", 32, null);
SetValue("grid.grid.vlength", 32, null);
Translate(null, 0, -2, 0, siRelative, siLocal, siObj, siXYZ, null, null, null, null, null, null, null, null, null, 0, null);
ActivateObjectSelTool(null);
This is what I get: