807188_de-DE

liliconcom

Fügen Sie Datum und Dateinamen zu jedem Diagramm hinzu

Ich frage mich nur, ob jemand ein Add-In oder ein Skript geschrieben hat, das das aktuelle Datum und den Dateinamen (der Quelldatentabelle) zu jedem generierten Diagramm/Bericht hinzufügt?

Ich habe die Einstellungen aktiviert

Danke

Ergebnisse teilen und kommunizierenBetreff: Datum und Dateinamen zu jedem Diagramm hinzufügen

Es ist nicht ganz so einfach, ein Skript zu erstellen, das mit jedem Diagramm/Bericht funktioniert.

Die Grundidee könnte so aussehen, aber dabei wird bereits davon ausgegangen, dass Sie einen Verweis auf die Tabelle und das Analyseobjekt haben. Außerdem wird davon ausgegangen, dass alle Frameboxen auf derselben Tabelle basieren

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb = dt << Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);


str = Char(As Date(Today())) || " " || (dt << getname);

fbs = Report(gb) << XPath("//FrameBox");
Eval(EvalExpr(
	fbs << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

Es kann jedoch ziemlich kompliziert sein, beispielsweise herauszufinden, welche die richtige Tabelle ist.

Betreff: Datum und Dateinamen zu jedem Diagramm hinzufügen

Ohne die Referenzen auf die Datentabelle und den Plot können Sie über den Report / get scriptable object() auf das gb-Objekt zugreifen - und über << get data table() auf die Datentabelle.
Fügen Sie möglicherweise etwas Code hinzu, um LDF und Spaltenumschalter zu überspringen ...

Names Default To Here(1); 
/*
open("$SAMPLE_DATA/Big Class.jmp");

Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);
*/



fbs = current report() << XPath("//FrameBox");
nfbs = N items(fbs); // add the info to the last FB

OBs= current report() << XPath("//OutlineBox");
gb = OBs[1] << get scriptable Object; // add some code to skip LDF and Column Switcher 

str = Char(As Date(Today())) || " " || ((gb << get data table()) << getname);

Eval(EvalExpr(
	fbs[nfbs] << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

Betreff: Datum und Dateinamen zu jedem Diagramm hinzufügen

Genial - Danke