- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Remove Control Chart Axis Labels
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: Remove Control Chart Axis Labels
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 2
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: Remove Control Chart Axis Labels
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: Remove Control Chart Axis Labels
Thanks for your help! I put that in my script and it worked great!