Something like this?
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Tiretread.jmp" );
//DModX formlula from the Principal Components Platform
obj1=dt << Principal Components(
Y( :ABRASION, :MODULUS, :ELONG, :HARDNESS ),
Estimation Method( "Default" ),"on Correlations");
obj1 << Save DMODX( 3 );
formula1= :DModX<<get formula();
//T Square formlula from the Multivariate Platform
obj2=dt<<Multivariate(
Y( :ABRASION, :MODULUS, :ELONG, :HARDNESS ));
obj2 << T Square(1, Save T Square);
JMP Systems Engineer, Health and Life Sciences (Pharma)