48596_zh-CN

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