我有以下脚本可以生成一个漂亮的控制图，我想添加一个函数将其（或窗口）作为 png 保存到我可以与其他人共享的文件夹中？
数据表(“样本数据”)
<< 新脚本(
“控制图 - 1”，
控制图生成器（
尺寸（960、767）、
显示报警报告( 1 ),
显示限制标签( 1 ),
显示 Sigma 报告( 1 ),
包括缺失的类别( 0 ),
变量（
子组( :时间 ),
子组( :单位, 位置( 1 ) ),
Y(：参数1)
),
图表（
位置( 1 ),
积分( 统计( "个人" ) ),
限制（西格玛（“移动极差”）），
警告（
测试1（1），
测试2（1），
测试3（1），
测试4（1），
测试5（1），
测试6（1），
测试7（1），
测试8（1），
规则 1 2S( 1 ),
规则 1 3S( 1 ),
规则 2 2S( 1 ),
规则 R 4S( 1 ),
规则 4 1S( 1 ),
规则10X(1)，
超越极限的测试( 1 )
),
过程能力分析（直方图（1，显示西格玛密度内（0）））
),
图表（
位置（2），
点（统计（“移动范围”）），
限制（西格玛（“移动极差”）），
警告（测试超出限制（1））
),
图表（
位置（3），
点（统计（“移动范围”）），
限制（西格玛（“移动极差”）），
警告（测试超出限制（1））
),
本地数据过滤器( 添加过滤器( columns( :filter 1 ) ) ),
显示控制面板( 0 ),
发送至报告（
派遣（
{},
“参数2”，
秤盒，
{格式( "固定十进制", 12, 2 ), 最小值( 0 ), 最大值( 1), 增量( 0.1 ),
小刻度( 0 )}))));
脚本索引的这个示例应该说明如何做到这一点：
Names Default To Here( 1 );
//This message applies to all display box objects
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = dt << Bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
rbiv << Save Picture( "$TEMP/jmp_example.png", "png" );
