p=Plot3D[Sin[x*y],{x,-3,3},{y,-3,3}]

Export["TestPlot"<>#,p]&/@{".pdf",".png",".jpg",".dxf",".ma",".obj"}