Export to 2d

Does anyone have any VBA code for converting 3d files to 2d. I know that there is an export to 2d utility but I want to do this in batch. I would like it to be able to skip the file if it is already a 2d file.

 

Thank you