Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: Extracting graphics from notebook

  • To: mathgroup at smc.vnet.net
  • Subject: [mg115459] Re: Extracting graphics from notebook
  • From: John Fultz <jfultz at wolfram.com>
  • Date: Tue, 11 Jan 2011 19:21:33 -0500 (EST)

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