Legend not showing up saved PNG

mochar

dt = Open( "\\someFile.jmp", invisible);

path = "\\path\to\folder\";

names = { "Amplitude 1/2 Vppse", "Amplitude Vppde"};

ngraphs = N Items( names );

For( ip = 1, ip <= ngraphs, ip++,

	current_graph = dt << Variability Chart(
		invisible,
		Y( Column(dt, names[ip])),
		X( :Temp, :vccl),
		Std Dev Chart( 0 ),
		SendToReport(
			Dispatch(
				{"Variability Chart for " || names[ip]},
				"2",
				ScaleBox,
				{Label Row( {Show Major Grid( 1 ), Show Minor Grid( 1 )} )}
			),
			Dispatch(
				{"Variability Chart for " || names[ip]},
				"Variability Chart",
				FrameBox,
				{Row Legend(
					Serial,
					Color( 1 ),
					Color Theme( "JMP Default" ),
					Marker( 1 ),
					Marker Theme( "Standard" ),
					Continuous Scale( 0 ),
					Reverse Scale( 0 ),
					Excluded Rows( 0 )
				)}
			)
		)
	);

	current_graph rep = current_graph << Report;
	
	chart_type = Char(current_graph << Title);
 	chart_type = Munger(chart_type, 1, "[]", "");
 	
 	If(chart_type == "Variability Chart", name = current_graph rep[TextEditBox(1)] << Get Text );
	
 	name = Munger(name,1,"/", "_");	
 	
	final_name = chart_type || "_" || name ;
	
	picture_path = path || Char(final_name) || ".png";
	current_graph << Save Picture( picture_path, "png" );
)

 

Help! So I have managed to make a for loop to make a graph for each column that I put in my array. This actually works  
BUT, it looks like the legend does not show up even though I have it in the script.
I also notice that in a blank jmp file that just has data and no scripts that run, my data points are just black dots instead of the colored markers I have specified in my script. Is this connected? Do I have to run a script in the data set, and then run the whole .jsl script like the one above after? Why isn't my legend showing up the way I have it specified in my script.

graph_example_jmp.JPG

danschikore

I should have said that you can avoid both SendToReport and Dispatch.  Each Dispatch command essentially identifies a display box and sends it a message.  After the platform launches, your two commands would become:

 

current_graph&nbsp;rep[Scale Box(2)]&nbsp;<<&nbsp;Label&nbsp;Row(...);<BR />current_graph rep<SPAN class="token punctuation">[</SPAN>Frame Box<SPAN class="token punctuation">(</SPAN><SPAN class="token number">1</SPAN><SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">]</SPAN> <SPAN class="token operator"><</SPAN><SPAN class="token operator"><</SPAN> Row&nbsp;Legend(...);