Here is a piece of code that will open the Summary of Fit if it isn't open.
ob = rbiv << XPath( "//OutlineBox[ contains( text(), 'Response' ) ]" );
Print( ob );
For( i = 1, i <= N Items( ob ), i++,
name = ob[i] << get title;
Print( name );
obj = ob[i] << get scriptable object;
try( obj<<Summary of Fit(1));
ob[i] << Close( 1 );
ob[i]["Summary of Fit"] << Close( 0 );
ob[i]["Parameter Estimates"] << Close( 0 );
);
Additionally, it is a simple matter to open the Summary of Fit sections for all models, with one click. If you hold down the CNTL key and click on the Summary of Fit selection, and all models will have the Summary of Fit added to the analysis.
Jim