cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
JMP is taking Discovery online, April 16 and 18. Register today and join us for interactive sessions featuring popular presentation topics, networking, and discussions with the experts.
Choose Language Hide Translation Bar
Steve_Kim
Level III

A Simple JMP Script question: How to rotate word which is outside of graph

Hi All,

 

I'd like to rotate a word "where( :age==14)" which is outside of graph in a popup window.

 

Here is the script. 

Could you tell me how to make a script?  Thanks in advance. : )

 

 

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

nw = dt << Graph Builder(
 Size( 563, 452 ),
 Show Control Panel( 0 ),
 Variables( X( :weight ), Y( :height ) ),
 where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
 Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
 SendToReport(
  Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
  Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
 )
);

 

 

 

How to write scripts to rotate text.jpg

 


  

1 ACCEPTED SOLUTION

Accepted Solutions
txnelson
Super User

Re: Simple JMP Script question: How to rotate word which is outside of graph

Here is a method that I have used in the past.  It uses an invisible Outline Box() to gain easy access to the Text Box() you want to manipulate, which lies outside of the Platform Object

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
nw = New Window( "the output",
	ob = Outline Box( "",
		dt << Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		)
	)
);
nw[Outline Box( 1 )][Text Box( 1 )] << rotate text( left );
Jim

View solution in original post

5 REPLIES 5
Phil_Kay
Staff

Re: Simple JMP Script question: How to rotate word which is outside of graph

I built a similar graph in Graph Builder, rotated the text of the y-axis and then saved the script to a script window (Red triangle menu > Save script > To script window).

Graph Builder(
	Size( 514, 444 ),
	Show Control Panel( 0 ),
	Variables( X( :weight ), Y( :height ) ),
	Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) ),
	SendToReport(
		Dispatch( {}, "Y title", TextEditBox, {Rotate Text( "Horizontal" )} )
	)
);

The saved script shows you where to add the instruction to rotate text.

Does that help?

Regards,

Phil

Steve_Kim
Level III

Re: Simple JMP Script question: How to rotate word which is outside of graph

Hi Phil,

 

Thank you for the answer. : )

 

However I'd like to Rotate the text box "where( :age == 14 )" ,  Not Y-axis title.

 

Steve_Kim
Level III

Re: Simple JMP Script question: How to rotate word which is outside of graph

 
txnelson
Super User

Re: Simple JMP Script question: How to rotate word which is outside of graph

Here is a method that I have used in the past.  It uses an invisible Outline Box() to gain easy access to the Text Box() you want to manipulate, which lies outside of the Platform Object

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
nw = New Window( "the output",
	ob = Outline Box( "",
		dt << Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		)
	)
);
nw[Outline Box( 1 )][Text Box( 1 )] << rotate text( left );
Jim
Steve_Kim
Level III

Re: Simple JMP Script question: How to rotate word which is outside of graph

Wow ~~~  

 

 

That's what I'm looking for!!

 

Thank you so much Jim!  : )

 

 

 

 

===============================================================

 

 

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );  // data table

nw = New Window( "the output", 

	H List Box(
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 12 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),   // end of graph (age=12)
			
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 13 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),  // end of graph (age=13)
			
	),  // end of H list box
	H List Box(
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 14 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),   // end of graph (age=14)
		Graph Builder(
			Size( 563, 452 ),
			Show Control Panel( 0 ),
			Variables( X( :weight ), Y( :height ) ),
			where( :age == 15 ),  //   <-  I want to rotate this text in the graph window. 
			Elements( Points( X, Y, Legend( 8 ) ), Smoother( X, Y, Legend( 9 ) ) ),
			SendToReport(
				Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "Hight " )} ),
				Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
			)
		),  // end of graph (age=15)
	),  // end of H list box
	// 	)  // end of outline box
);    // end of new window






/*Check text box numbers by clicking "show tree structure"  from the graph window*/
nw[Text Box( 1 )] << rotate text( left ); // rotate text
//nw[Text Box( 1 )] << hide (1);  // hide text


nw[Text Box( 5 )] << rotate text( left ); // rotate text
//nw[Text Box( 5 )] << hide (1);  // hide text

nw[Text Box( 9 )] << rotate text( left ); // rotate text
//nw[Text Box( 9 )] << hide (1);  // hide text

nw[Text Box( 13 )] << rotate text( left ); // rotate text
//nw[Outline Box( 1 )][Text Box( 13 )] << hide (1);  // hide text

 

 

I found a "text box number" 

from the "show  tree structure" button  on the window as well.

 

how to find text box number from window (show tree structure).png