J'ai créé un script pour prendre un document de spécifications et appliquer des limites de spécifications et des notes à un fichier de données. J'essayais de trouver un moyen d'ajouter automatiquement les notes saisies sous forme d'annotation aux tracés suivants.
J'ai trouvé cela avec beaucoup d'aide de la communauté des utilisateurs. Vous vous demandez s'il existe des opportunités évidentes de rendre le script plus flexible en termes de types d'intrigue pouvant être annotés automatiquement ?
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 vous voyez des opportunités d'améliorer ce script, je suis ouvert aux suggestions ?
Merci
Déc
Votre entrée de colonne Y doit avoir une restriction pour garantir que seules des colonnes numériques peuvent être spécifiées.
