Rendering 3D Models

First, we import some data sets.

SetDirectory[
        ToFileName[("FileName" /. 
                NotebookInformation[
                  EvaluationNotebook[]])[[1]]]];

f16 = Import["F16.dxf"];

ed209 = Import["ED_209.DXF"];

Now, we modify the resulting Graphics3D expression so that color directives are used.

f116gr = 
      Show[Graphics3D[{EdgeForm[], SurfaceColor[Gray, White, 128], 
            f16[[1]]}], PlotRange -> All, Boxed -> False, 
        Background -> Black, ImageSize -> 600, 
        SphericalRegion -> True, AspectRatio -> 1]

The following example contains more polygons than the previous example so be patient while it renders.

ed209gr = 
      Show[Graphics3D[{EdgeForm[], SurfaceColor[White, White, 128], 
            ed209[[1, Range[1, 19760]]]}], PlotRange -> All, 
        Boxed -> False, Background -> Black, ImageSize -> 600, 
        SphericalRegion -> True, AspectRatio -> 1, 
        LightSources -> {{{0, 1, 0}, White}, {{-1, -1, 1}, 
              RGBColor[ .5,  .5, 1]}}]