Importing Spec Limits

jay_S

So I have a script that runs Process Capability on a table of data. I am able to run it automatically using this solution, https://community.jmp.com/t5/Discussions/JSL-automate-the-columns-used-in-Process-Capability/m-p/39855. I am now trying to import the spec sheet automatically too. Right now users automatically have 2 sheets. 1 with data and 1 with the spec info. I can make a solution that takes the spec sheet info and copys it to the column properties, but i would rather have it run in the code in case users want to use the data sheet with another spec file.

 

my code so far...

    yyy = Eval(    Parse("summ_table << Process Capability(
                                                            Process Variables( " || TheVars || "),  <<works
                                                            Spec Limits(Import Spec Limits(\!"" || Spec ||"\!")) <<not working
                                                            
                                                        );"
                    )
                );

spec holds the open spec tables name. i can easly get it in these 2 formats.

"specTable1.jmp"

"DataTable("specTable1.jmp")"

 

i got the spec limits code from this blog -- https://community.jmp.com/t5/JMPer-Cable/3-ways-to-load-your-specification-limits-into-Process-Capability/ba-p/34189

txnelson

JSL is capable of performing almost anything you need to have done, so in response to your question, yes, you can select the data table an then the limits table, and then run process capability.  Here is a very simple script that does exactly that.  I have tested it with the attached data and limits table.  The code is definatly not bulletproof.  But it should show you how to proceed.

Names Default To Here( 1 );

// Select the data table and open it
path = Pick File( "Select Data Table" );
dt = Open( path );

// Select the limits table and open it
path = Pick File( "Select Limits Table" );
dt2 = Open( path );

// Point to the data table as the main table
Current Data Table( dt );

// Open a new window to select the process variables
nw = New Window( "Select Process Variables",
	Text Box( "Selection Columns" ),
	H List Box(
		datacolbox = Col List Box( all ),
		Button Box( "Process Variables", pList << append( datacolbox << get selected ) ),
		pList = List Box( {} )
	),
	Button Box( "OK",
		thelist = plist << get items;
		pvars = ":" || thelist[1];
		For( i = 2, i <= N Items( thelist ), i++,
			pvars = pvars || ",:" || thelist[i]
		);
		Eval(
			Parse(
				"obj = dt << Process Capability(
	Process Variables(" || pvars || " ),
	Spec Limits( Import Spec Limits( dt2 ) )
);"
			)
		);
	nw << close window;
	)
);

Sample capability.jmp

Sample Limits.jmp