Subscribe Bookmark RSS Feed

Remove Control Chart Axis Labels

rfeick

Contributor

Joined:

Sep 30, 2016

I have a script that imports data then manipulates the data and makes control charts. The person I'm writing it for does not want labels or tick marks along the x axis. I built the control charts using control chart builder and I removed the the x axis labels and tick marks, but when I run the script it puts them back.  Everything else I've done in control chart builder is replicated when the script is run. Is there a way to fix this? Here's the section of my script related to the control chart:

Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
1 ACCEPTED SOLUTION

Accepted Solutions
txnelson

Super User

Joined:

Jun 22, 2012

Solution

This script deals with the issue by deleting the X Axis Box

ccb=Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
report(ccb)[AxisBox(1)]<<delete;
Jim
2 REPLIES
txnelson

Super User

Joined:

Jun 22, 2012

Solution

This script deals with the issue by deleting the X Axis Box

ccb=Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
report(ccb)[AxisBox(1)]<<delete;
Jim
rfeick

Contributor

Joined:

Sep 30, 2016

Thanks for your help! I put that in my script and it worked great!