Pensieve header: An elephant from http://www.blendswap.com/blends/view/18009.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-04\\Elephant"]

Rasterize[el=Import["elephant.3ds"]]

Rasterize[el1=Import["elephant.stl"]]

Show[el, Boxed -> True, Axes->True, AxesLabel -> {x,y,z}] // Rasterize

DeleteCases[el, _RGBColor, Infinity] // Rasterize

Length /@ Cases[el, Polygon[l_] :> Polygon@@l, Infinity] // Union

List @@ el /.  _GraphicsComplex :> Here

{{EdgeForm[],{Here,Here}},Boxed->False,Lighting->"Neutral"}

gc1=Cases[el, _GraphicsComplex, Infinity][[1]]

gc2=Cases[el, _GraphicsComplex, Infinity][[2]]

Graphics3D[{EdgeForm[],{gc1,gc2}},Boxed->False,Lighting->"Neutral"] // Rasterize

Graphics3D[{{gc2}},Boxed->False,Lighting->"Neutral"] // Rasterize

l1=Length[gc1[[1]]];
gc=GraphicsComplex[
Join[gc1[[1]], gc2[[1]]],
Join[gc1[[2]], gc2[[2]] /. Polygon[ps_List] :> Polygon[l1+ps]]
]

Graphics3D[{gc},Boxed->False,Lighting->"Neutral"] // Rasterize

Graphics3D[{EdgeForm[],GraphicsComplex[gc[[1]], Select[gc[[2]], Random[]<0.15&]]},Boxed->False,Lighting->"Neutral"] // Rasterize

gc[[1]] >> ElephentVertices.m