807188_zh-TW

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

但找出哪一個是正確的表可能會變得相當複雜。

回覆：將日期和檔案名稱新增到任何圖表中

如果沒有對資料表和繪圖的引用，您可以透過 reports / get scriptable object()存取 gb 物件 - 並且透過<< get data table() 存取資料表。
也許添加一些代碼來跳過 LDF 和列切換器...

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

回覆：將日期和檔案名稱新增到任何圖表中

太棒了-謝謝