I have created a script to take a spec document and apply spec limits and notes to a data file. I was trying to come up with a way to automatically add the notes input as an annotation to the subsequent plots.
I came up with this with a lot of help from the user community. Wondering if there are obvious opportunities to make the script more flexible in terms of plot types that can auto annotate?
clear Globals();
Delete Symbols();
dt=Current Data Table();
cd=Column Dialog(
exy =
ColList( "Y",
Min Col( 1 ),
Max Col( 100 ),
),
exx =
ColList( "X",
Min Col( 1 ),
Max Col( 10 ),
),
);
eval(cd[1]);eval(cd[2]);
yyy=expr(y());
xxx=expr(x());
xval = exx[1];
for (i=1, i<=nitems(exy), i++,
insert into(yyy, exy[i]));
for (i=1, i<=nitems(exx), i++,
insert into(xxx, exx[i]));
nw = New Window( "Annotated Multiple Plots", V List Box( vlb = v List Box() ) );
For( i = 1, i <= N Items( exy ), i++,
Notes = exy[i] << Get Property( "Notes" );
plots = V List Box(
oneway( x( exx[1] ), y( exy[i] ),
SendToReport(
Dispatch(
{},
"Oneway Plot",
FrameBox,
Add Text Annotation(
Text( "Category: " || Notes ),
Fixed Size( 0 ),
Text Box( {0, 0, 0, 0} ),
Filled( 0 ),
Font( "Segoe UI", 10, "Bold" )
)
) )
));
vlb << append( plots );
);
If you see any opportunities to improve this script, I’m open to suggestions?
Thanks
Dec
