807188_zh-CN

liliconcom

在任何图表中添加日期和文件名

只是想知道是否有人编写过插件或脚本，可以将当前日期和文件名（源数据表的）添加到生成的任何图表/报告中？

我已开启偏好设置

谢谢

分享和交流结果回复：在任何图表中添加日期和文件名

创建一个可以适用于任何图表/报告的脚本并不是那么简单。

基本思想可能是这样的，但这已经假设您有对表和分析对象的引用。它还假设所有框架框都基于同一张表

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));
	);
));

但弄清楚哪个是正确的表格可能会变得相当复杂。

回复：在任何图表中添加日期和文件名

无需引用数据表和图表，您可以通过报告/获取可编写脚本的对象 ()访问 gb 对象 - 并通过<< 获取数据表 () 访问数据表。
也许添加一些代码来跳过 LDF 和 Column Switcher ...

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));
	);
));

回复：在任何图表中添加日期和文件名

太棒了 - 谢谢