新しいウィンドウでカスタマイズされた使用のためにチャートのコピー/貼り付けをスクリプト化する方法は?h リスト ボックスと v リスト ボックス機能を使用して、多数のデータ セットを管理図にまとめ、すべての管理図を 1 つのフォーム (新しいウィンドウ) にうまく表示したいと考えています。 したがって、何らかの方法でコピー/貼り付けするスクリプトを作成することを念頭に置いています。
非常に多くのチャートを統合すると、新しいウィンドウのスペースが制限され始めます。 したがって、私はしたいですいいえ各チャートの表示に、常にデフォルトのタイトル「管理図」を持つ上部のアウトライン ボックスを含めます。
ただし、2 番目のアウトライン ボックスは、各グラフのカスタマイズされたタイトルを提供するため、すべての場合に保持したいと思います。
私が考えている「hリストボックス」の使用例を添付します。
フレームの内容をコピーして貼り付ける方が簡単な場合はお知らせください。 その後、統合の各管理図の上にあるテキスト ボックスを使用するだけで済みます。 このオプションが最適である場合は、フレーム コンテンツのコピーとフレーム コンテンツの貼り付けの最適な使用方法についてコメントしてください。
添付のpdfの方が私の狙いが視覚的に示されているので分かりやすいかもしれません。
ありがとう！
Re: 新しいウィンドウでカスタマイズされた使用のためにチャートのコピー/貼り付けをスクリプト化する方法は?こちらの回答もありがとうございます！
Re: 新しいウィンドウでカスタマイズされた使用のためにチャートのコピー/貼り付けをスクリプト化する方法は?Jim の投稿に追加するには:
- そんな時に重宝するのがラインアップボックスです。
- 用紙にちょうど収まるようにページ サイズを設定できます。
Names Default To Here( 1 );
dt = Current Data Table();
cc1 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y1, Individual Measurement ) );
cc2 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y2, Individual Measurement ) );
cc3 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y3, Individual Measurement ) );
cc4 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y4, Individual Measurement ) );
win = New Window( "Test", lub = Line Up Box( N Col(2) ) );
lub << append( Report( cc1 )[Outline Box( 2 )] );
lub << append( Report( cc2 )[Outline Box( 2 )] );
lub << append( Report( cc3 )[Outline Box( 2 )] );
lub << append( Report( cc4 )[Outline Box( 2 )] );
lub << append( Report( cc1 )[Outline Box( 2 )] );
win << Set page setup(
margins( 0.5, 0.5, 0.5, 0.5 ),
scale( 1.0 ),
portrait( 0 ),
paper size( "Letter" )
);
fn = "$TEMP/JMP PDF Example.pdf";
win << Save PDF( fn );
Open( fn );
wait( 10 );
Delete File( fn )Re: 新しいウィンドウでカスタマイズされた使用のためにチャートのコピー/貼り付けをスクリプト化する方法は?これがあなたが望むことをする1つの方法です
Names Default To Here( 1 );
dt = Current Data Table();
cc1 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y1, Individual Measurement ) );
cc2 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y2, Individual Measurement ) );
cc3 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y3, Individual Measurement ) );
cc4 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y4, Individual Measurement ) );
win = New Window( "Test",
hlb1 = H List Box(
),
hlb2 = H List Box(
)
);
hlb1 << append( Report( cc1 )[Outline Box( 2 )] );
hlb1 << append( Report( cc2 )[Outline Box( 2 )] );
hlb2 << append( Report( cc3 )[Outline Box( 2 )] );
hlb2 << append( Report( cc4 )[Outline Box( 2 )] );
