In a draw document, 2D and 3D object are exportes correctly through Export menu
When using a Macro, only 2D objects are exported (all options have been tested)

sub testeps
odocument=thiscomponent
	oGraphic=CreateUnoService("com.sun.star.drawing.GraphicExportFilter")
	dim args5(2) as new com.sun.star.beans.PropertyValue
	Dim aFilterData (3) as new com.sun.star.beans.PropertyValue
    aFilterData(0).Name  = "Preview"
    aFilterData(0).Value = 3'0->none, 1->tiff, 2->epsi, 3->tiff+epsi
    aFilterData(1).Name  = "Version"
    aFilterData(1).Value = 2
    aFilterData(2).Name  ="ColorFormat"
    aFilterData(2).Value = 0                       ' 1->rgb color,2->greyscale
    aFilterData(3).Name  ="CompressionMode"
    aFilterData(3).Value = 0                       ' 0->none, 2->lzw
		for i=0 to odocument.drawpages.getcount()-1
			opage=odocument.drawPages(i)
			ographic.setSourceDocument(opage)
			args5(0).Name = "URL"
			nom=opage.name
			args5(0).Value =  convertToURL("d:\essai.eps")
			args5(1).Name = "MediaType"
			args5(1).Value = "application/postscript"
			args5(2).Name = "FilterData"
			args5(2).Value = aFilterData()
			oGraphic.filter(args5())
		next i
msgbox "done"
end sub