MathGroup Archive 2011

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

Search the Archive

Re: Extracting graphics from notebook


On Tue, 11 Jan 2011 00:35:08 -0500 (EST), Chris Degnen wrote:
> Hi, Can anyone suggest how I can address a graphics object from a
> saved notebook.  In the example below the most I can do is to
> CellPrint the object, but I would like to set it to a variable.
>
>
> dir == Directory[];
>
> nb1 == CreateDocument[Plot[Sin[x], {x, 0, 2 Pi}],
> NotebookFileName -> dir <> "\\" <> "Sin2Pi.nb"];
>
> NotebookSave[nb1];
> NotebookClose[nb1];
>
> nb2 == NotebookOpen[dir <> "\\" <> "Sin2Pi.nb"];
>
> SelectionMove[nb2, Next, Cell]
>
> CellPrint[NotebookRead[nb2]]
> NotebookClose[nb2];

Converting the output of NotebookRead to the equivalent Mathematica expression
requires ToExpression.

expr == ToExpression[NotebookRead[nb2]];

Or you could do this manually by simply copying the graphic and pasting it into
an Input cell.

Sincerely,

John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.


  • Prev by Date: Re: ParsedBoxWrapper's in packages
  • Next by Date: Re: Number of zeros finite or infinite?
  • Previous by thread: Re: Extracting graphics from notebook
  • Next by thread: Re: Extracting graphics from notebook