WOLFRAM

Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Re: Re: Re: export import eps | illustrator | pstoedit

Hi,
I understand your predicament. I had never tried to open an Illustrator 
generated file with Mathematica and at first glance it seems there is 
a problem. And come to think of it, I usually never go back to 
Mathematica after I've touched up the graphic with Illustrator.

Try this. Save the document with Illustrator with a TIFF black and white 
preview, postscript level 2 and import into Mathematica with

Import["filename.eps", "EPSTIFF"]
Show[%]

I hope that this is sufficient for you to get at the data. To really get 
at it, you would need to see what the difference between headers is 
between the two files "after" you have saved a copy with Illustrator. 
There is probaby a line missing that the Mathematica implementation of EPS 
import can't read or needs. At which point I would call it a bug. But then 
the question becomes -- whose problem is it, Adobe or Wolfram?

Cheers
Yas


On Mon, 15 Aug 2005, Chris Chiasson wrote:

> Steven,
> Yes, Mathematica can import its own EPS files. However, if they are
> opened and then saved in Illustrator, Mathematica can no longer open
> the EPS file. Thank you for trying to help me.
> Regards,
>
> On 8/14/05, Steven M. Christensen <steve at smc.vnet.net> wrote:
>> Chris Chiasson wrote:
>>
>>>> I usually get this error when I try to export a graphic and it is not
>>>> defined
>>>>
>>>>
>>>
>>> I have not made this error. Note the Plot statement is inside the
>>> Export statement. Thank you for your response.
>>>
>>> On 8/13/05, Pratik Desai <pdesai1 at umbc.edu> wrote:
>>>
>>>
>>>> Chris Chiasson wrote:
>>>>
>>>>
>>>>
>>>>> Hello MathGroup,
>>>>> I am trying to Import some 2D vector graphics from a PDF. I have taken
>>>>> the graphics and put them in an Adobe Illustrator file. I have tried
>>>>> all manner of export methods.
>>>>>
>>>>> PS
>>>>> EPS
>>>>> DXF
>>>>> SVG
>>>>>
>>>>> In all cases Mathematica either can't read the files or reads them
>>>>> incorrectly in a way that makes it impossible to obtain the data I
>>>>> need. Also, using ghostview/pstoedit on the ps and eps output of
>>>>> Illustrator has been ineffective.
>>>>>
>>>>> So, I decided I would start small:
>>>>>
>>>>> NotebookDirectory=
>>>>>   DirectoryName[
>>>>>     ToFileName["FileName"/.NotebookInformation[EvaluationNotebook[]]]];
>>>>> Export[ToFileName[NotebookDirectory,"\\Engine Map\\temp2.eps"],
>>>>> Plot[x^2,{x,0,3},Epilog->{Hue[0],Line[{{1,0},{1,9}}]},ImageSize->600]]
>>>>> Show@Import[ToFileName[NotebookDirectory, "\\Engine Map\\temp2.eps"]]
>>>>>
>>>>> The result of these commands is a Graphics object that has misaligned
>>>>> text on the axes, but is otherwise acceptable.
>>>>>
>>>>> Now:
>>>>> I open Illustrator, open the temp2.eps file, save it as an eps
>>>>> (varying the version of the EPS has had no effect), close Illustrator
>>>>> and then issue the following command again:
>>>>>
>>>>> Show@Import[ToFileName[NotebookDirectory, "\\Engine Map\\temp2.eps"]]
>>>>>
>>>>> The output is now:
>>>>> DeleteFile::privv: Privilege violation during DeleteFile[C:\DOCUME~
>>>>>         1\Chris\LOCALS~1\Temp\.00009a03480].
>>>>> Import::fmterr: Invalid EPS format.
>>>>> Show::gtype: Symbol is not a type of graphics.
>>>>>
>>>>>
>>>>>
>>>>>
>>>> I usually get this error when I try to export a graphic and it is not
>>>> defined
>>>> lets say
>>>> plot1=Plot[..........]
>>>> SetDirectory["C://"]
>>>> Export["plot1.png", plot, "PNG"]
>>>> when plot and plot1 do not match it gives you the gtype error
>>>>
>>>> I hope this helps
>>>>
>>>> Pratik Desai
>>>>
>>>>
>>>>
>>>>> Show[$Failed]
>>>>>
>>>>> What is going on? How do I fix this problem? If I can import this
>>>>> basic graphic with your help, I may be able to tackle the other one.
>>>>>
>>>>> Versions:
>>>>> Win XP SP2
>>>>> Mathematica 5.2 Student
>>>>> Adobe Illustrator CS 2 Tryout
>>>>>
>>>>>
>>>>>
>>>>>
>>>> --
>>>> Pratik Desai
>>>> Graduate Student
>>>> UMBC
>>>> Department of Mechanical Engineering
>>>> Phone: 410 455 8134
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>>
>> Well this worked on my ver 5.1.1 Windows XP
>> NotebookDirectory =
>>     DirectoryName[
>>       ToFileName["FileName" /. NotebookInformation[EvaluationNotebook[]]]];
>> Export[ToFileName[NotebookDirectory, "\\temp2.eps"],
>>   Plot[x^2, {x, 0, 3}, Epilog -> {Hue[0], Line[{{1, 0}, {1, 9}}]},
>> ImageSize \
>> -> 600], "EPS"]
>> Show@Import[ToFileName[NotebookDirectory, "\\temp2.eps"]]
>>
>> what I meant earlier in my email was that the Export in your code was
>> not in the correct syntax
>>
>> Anyway hope this helps
>>
>> Pratik Desai
>>
>> --
>> Pratik Desai
>> Graduate Student
>> UMBC
>> Department of Mechanical Engineering
>> Phone: 410 455 8134
>>
>>
>>
>
>
> -- 
> Chris Chiasson
> http://chrischiasson.com/
> 1 (810) 265-3161
>
  • Prev by Date: Re: Re: Some bugs in Mathematica
  • Next by Date: N-dimensional rotations
  • Previous by thread: Re: Re: Re: export import eps | illustrator | pstoedit
  • Next by thread: Re: export import eps | illustrator | pstoedit