User Portlet User Portlet

Discussions
I've a list of around 2000 ParametricPlot3D plots to be plotted together, using "Show". Around 10 is OK (see the plot with 10 small cones on the hemisphere), but with 50 or more, Mathematica stops the computation prematurely with a "pffft",...
Is there a way to use Show, e.g. Show[ Do[Graphics3D[ .. ],{i,1,n}]]?