48596_zh-TW

liliconcom

如何編寫圖表的複制/粘貼腳本以在新窗口中自定義使用？

我想在控製圖中總結大量數據集，並使用 h 列錶框和 v 列錶框函數在一個表單（新窗口）上很好地顯示所有圖表。 因此，考慮了一些以某種方式複制/粘貼的腳本。

在合併這麼多圖表時，新窗口上的空間開始受到限制。 因此我想不是在每個圖表的顯示中包含頂部輪廓框，它始終具有默認標題“控製圖”。

然而，我希望在所有情況下都保留第二個大綱框，因為它為我提供了每個圖表的自定義標題。

附件是我想到的“h 列錶框”的用法示例。

如果復制和粘貼框架內容更容易，請告訴我。 然後我可以在合併中使用每個控製圖上方的文本框。 如果這個選項是最好的，請評論如何最好地使用複制框架內容和粘貼框架內容。

隨附的 pdf 可能更容易理解，因為我的目標是直觀顯示的。

謝謝！

回复：如何編寫圖表的複制/粘貼腳本以在新窗口中自定義使用？

也謝謝你的回答！

回复：如何編寫圖表的複制/粘貼腳本以在新窗口中自定義使用？

添加到吉姆的帖子：

1. Line Up Boxes 對這種事情很方便，而且
2. 您可以設置頁面大小，使它們剛好適合一張紙。

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 )

回复：如何編寫圖表的複制/粘貼腳本以在新窗口中自定義使用？

這是一種做你想做的事的方法

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