If you draw a simple cuboid and translate/scale/rotate it:
p3 = Graphics3D[{
Translate[
Scale[
Rotate[Cuboid[], Pi/3, {1, 0, 0}],
0.7],
{.2, .7, .3}]},
PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}]
it can't be exported to any 3D format. For example:
Export["p3.stl", p3]
Export::nodta: Graphics3D contains no data that can be exported to the STL format. >>
So is there a way of finding the 3D vertices that Mathematica has used to draw the 3D graphic? FullForm shows only the transformation functions:
Graphics3D[List[Translate[Scale[Rotate[Cuboid[List[0,0,0]],Times[Rational[1,3],Pi],List[1,0,0]],0.7`],List[0.2`,0.7`,0.3`]]],Rule[PlotRange,List[List[-2,2],List[-2,2],List[-2,2]]]]