Creé una secuencia de comandos para tomar un documento de especificaciones y aplicar límites de especificaciones y notas a un archivo de datos. Estaba tratando de encontrar una manera de agregar automáticamente las notas ingresadas como una anotación a los gráficos posteriores.
Se me ocurrió esto con mucha ayuda de la comunidad de usuarios. ¿Se pregunta si existen oportunidades obvias para hacer que el guión sea más flexible en términos de tipos de trama que puedan realizar anotaciones automáticas?
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 );
);
Si ve alguna oportunidad para mejorar este script, ¿estoy abierto a sugerencias?
Gracias
Dic
Es necesario aplicar una restricción a la entrada de la columna Y para garantizar que solo se puedan especificar columnas numéricas.
