637436_zh-CN

liliconcom

如何通过脚本向控制图添加字幕？

有人知道怎么用脚本给控制图添加字幕吗？我有一列字幕名称，想循环遍历，把第1行添加为第2列的字幕，再把第2行添加为第3列的字幕……等等。

如果可以的话，任何建议/知识都非常感谢！谢谢！

高级统计建模自动化和脚本数据探索与可视化实验设计大规模定制质量与工艺工程回复：如何通过脚本向控制图添加字幕？

不确定是否可以为控制图（生成器）设置字幕，因此您可能必须创建用作标题的文本编辑框的副本，然后将其附加到新文本框中。

下面是一个例子

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Quality Control/Coating.jmp");
new_col = dt << New Column("subtitles",  Character, Nominal);
new_col[1] = "text1";
new_col[2] = "text2";

nw = New Window("",
	vlb = V List Box()
);
nw << Show Window(0);

cols_of_interest = {"Weight", "Weight 2"};
subtitles = :subtitles << get values;

For Each({col_of_interest, idx}, cols_of_interest,
	vlb << append(obj = dt << Control Chart Builder(Variables(Y(:Weight), Subgroup(:Sample))));
	title_teb = (Report(obj)[TextEditBox(1)]);
	gb_titlebox = title_teb << parent;
	gb_titlebox << Append(V List Box(align("center"),
		title_teb << Clone box(),
		Text Box(dt[idx, "subtitles"])
	));
	title_teb << Delete Box();
	wait(0);	
);
nw << Show Window(1);