1. RevolutionPlot3D[t^4 - t^2, {t, 0, 1}]
    2. Graphics3D[Cases[Normal@%, _Line, Infinity]]

    效果图
    image.png