I am not aware of a direct way to do what you want, however the script below will do it. It is using the Semiconductor Capability data table from the JMP Sample Data Tables. I think the code is simple enough to work through your use of it.
Names Default To Here( 1 );
// open the semiconductor data table and add a Temp column to it
// to mimic the data table you are using
dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );
// Add a Temp Column
dt << New Column( "Temp", nominal, formula( If( Row() < N Rows( dt ) / 2, -26, -30 ) ) );
// Create a list of all of the parameters
colList = dt << get column names( continuous, string );
// Turn on the Show Limits for all of the columns
For( i = 1, i <= N Items( colList ), i++,
spec = Column( dt, colList[i] ) << get property( "spec limits" );
insert into(spec,expr(show limits(1)));
column( dt, colList[i] ) << set property("spec limits", eval(spec));
);
// Create the split data table
dtSplit = dt << Split(
Split By( :Temp ),
Split( Eval( colList ) ),
Remaining Columns( Drop All ),
Sort by Column Property
);
// Create an output window to place the graphs into
nw = New Window( "Outputs", lub = Lineup Box( N Col( 4 ) ) );
// Since the columns desired are side by side, loop across
// the columns and create the graphs and add them to the
// output window
For( i = 1, i <= N Cols( dtSplit ), i = i + 2,
lub << append(
Graph Builder(
Size( 350, 350 ),
Show Control Panel( 0 ),
Variables( X( As Column( dtSplit, i ) ), Y( As Column( dtSplit, i + 1 ) ) ),
Elements( Points( X, Y, Legend( 5 ) ) )
)
)
);
Jim