Script to Edit a Script

SpannerHead

I have a script that takes a standard contour plot output and rearranges the plots into columns.

 

Goes from

 

to

 

The placement of the text boxes is causing the script to misfire.

 

Is there a different way to get the result?  If not, can I adjust the present script somehow to sort it?  I was wondering if the parent script could execute a find/replace on the child script to perform some adjustments?

 

clear Globals();
Delete Symbols();
window = Get Window List();
wName = window << Get Window Title;
nWindows = N Items( window );
For( i = nWindows, i > 0, i--,
	If( Contains( wName[i], "Contour Plot" ),
	
		obj = window[i]["Contour Plot?"] << Get Scriptable Object;
		Show(obj);
		obj << Save Script for All Objects;
obj << Close Window;
Break();
	);
);
spt = Window( "Script Window" );
spt << Bring Window To Front;
spt2 = spt[Script Box(1)];
spt2 << Get Line Text( 3 );
spt2 << Set Line Text (3, "Line Up Box( N Col( 3 ), Spacing( 2 ),");
spt2 << run();
spt2 << Close Window;

  

hogi

Closer to the original approach with the ... Script for all Objects:

 

// there is no
// myScript =  (current report()[OutlineBox(1)] << get scriptable object) <<  get Script for All Objects;
// : (

(current report()[OutlineBox(1)] << get scriptable object) <<  save Script for All Objects;
sw = Window( "Script Window" );
myScript = Parse(sw[Script Box(1)] << get text);

//--------------------------
<BR />// prepare a Template for the Line Up Box
myExpr = Expr( Line Up Box( N Col( 3 ), Spacing( 2 )));<BR />
// take the V list Box - it contains the Countour Plot commands
myScript = (Extract Expr(myScript, V List Box (Wild List())));

// cycle through Contour Plot commands, "wrap" with V List Box and insert into template
For each({command}, Name Expr(myScript), // an I-DONT-CARE of VLBs
    wrapped = Insert (Expr(V list Box ()), Name Expr(command));
	Insert Into(myExpr, Name Expr(wrapped))
);

// generate the report
New Window("overview", myExpr);

 

 

Many many Thanks to the programmer of the  For Each function !! 
wonderful : )
It works with any Expression, not just with List, Associative Array and Matrix : )