Ich habe ein Skript erstellt, um ein Spezifikationsdokument zu übernehmen und Spezifikationsgrenzen und Hinweise auf eine Datendatei anzuwenden. Ich habe versucht, eine Möglichkeit zu finden, die eingegebenen Notizen automatisch als Anmerkung zu den nachfolgenden Diagrammen hinzuzufügen.
Ich bin mit viel Hilfe der Benutzergemeinschaft darauf gekommen. Sie fragen sich, ob es offensichtliche Möglichkeiten gibt, das Skript in Bezug auf Plottypen, die automatisch Anmerkungen hinzufügen können, flexibler zu gestalten?
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 );
);
Wenn Sie Möglichkeiten sehen, dieses Skript zu verbessern, bin ich für Vorschläge offen?
Danke
Dez
Für Ihre Y-Spalteneingabe muss eine Einschränkung vorgenommen werden, um sicherzustellen, dass nur numerische Spalten angegeben werden können.
