cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
New to using JMP? Hit the ground running with the Early User Edition of Discovery Summit. Register now, free of charge.
Register for our Discovery Summit 2024 conference, Oct. 21-24, where you’ll learn, connect, and be inspired.
Choose Language Hide Translation Bar
Chris21740
Level I

How script save picture of each graph with CpK report that contains many graphs

Report( pc ) << save picture(
	"C:\Users\cschleigh\Desktop\EOM OQC 5-9-22\JMP\Output Images\test.jpg"
);

Hi,

JMP15, I would like to <<save picture for each graphs from a Process Capability report with multiple Process Variables, one .jpg per graph.

 

PC = Process Capability(
Process Variables(
:Name( "BS-Blue FWHM, Median (Pixels)" ),
:Name( "BS-Green FWHM, Median (Pixels)" ),
:Name( "BS-Blue uDOF (nm)" ),
:Name( "BS-Green uDOF (nm)" ),

...

 

This creates one large image with all graphs in one jpg:

 

Report( pc ) << save picture(
"C:\Users\cschleigh\Desktop\EOM OQC 5-9-22\JMP\Output Images\test.jpg"
);

 

I need separate jpgs for each.

1 REPLY 1
Georg
Level VII

Re: How script save picture of each graph with CpK report that contains many graphs

Welcome to the community!

 

Here is an example how this could be done.

It looks for the outline boxes that contain "Plot" in title, and save that as a picture.

Best regards

 

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Semiconductor Capability.jmp" );
obj = dt << Process Capability(
	Process Variables( :NPN1[:lot_id, :wafer], :PNP1[:lot_id, :wafer], :PNP2[:lot_id, :wafer], :NPN2[:lot_id, :wafer], :PNP3[:lot_id, :wafer] )
);

oboxes = Report( obj ) << XPATH( "//OutlineBox" );
For Each( {obox, index}, oboxes,
	If( Contains( (obox << get title), "Plot" ),
		obox << save picture( Eval Insert( "$TEMP\^char(index)^_test.jpg" ) )
	)
);

Open( "$TEMP" );
Georg