cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Check out the JMP® Marketplace featured Capability Explorer add-in
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