스크립팅을 통해 제어 차트에 자막을 추가하는 방법을 아시는 분 계신가요? 자막 이름 열이 있는데, 그 열을 반복하면서 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);