classes = 

  Flatten[{{AstronomicalData[#]} & /@ {"Planet", "AtenAsteroid", 

      "CentaurAsteroid", 

      "TransNeptunianObject"}, {Take[AstronomicalData[#], 

        100]} & /@ {"ApolloAsteroid", "AmorAsteroid", 

      "InnerMainBeltAsteroid", "MainBeltAsteroid", 

      "OuterMainBeltAsteroid", "TrojanAsteroid"}}, 2];

colors = Table[ColorData[5, i], {i, 1, 10}];

combine = 

  Transpose[{colors, 

    Map[AstronomicalData[#, "OrbitPath"] &, classes, {2}]}];

Graphics3D[combine, PlotRange -> 50, ViewAngle -> \[Pi]/100]