Table[
Graphics3D[With[{p=First@V, q=Last@V},{Red,Thick, Line[{1.5p-.5q,1.5q-.5p}],Yellow,EdgeForm[],Table[Rotate[Cuboid[],2Pi k/20,p-q,q],{k,20}]}]],{V,{{{1,1,1},{0,0,0}},{{1,.5,1},{0,.5,0}},{{.7,.7,1},{.3,.3,0}}}}]

Table[
Graphics3D[With[{p=First@V, q=Last@V},{Red,Thick, Line[{1.5p-.5q,1.5q-.5p}],Yellow,EdgeForm[],Table[Rotate[Cuboid[],2Pi k/20,p-q,q],{k,20}]}]],{V,{{{.7,.7,1},{.3,.3,0}}}}]

Export["/Users/FancyMcPantsy/Desktop/shape.stl","STL"]

Export["/Users/FancyMcPantsy/Desktop/Mathematica/shape.stl",%18,"STL"]