Ich habe das folgende Skript, das ein schönes Kontrolldiagramm erstellt. Ich möchte eine Funktion hinzufügen, um es (oder das Fenster) als PNG in einem Ordner zu speichern, den ich mit anderen teilen kann?
Datentabelle("sampledata")
<< Neues Skript(
„Kontrollkarte – 1“,
Regelkarten-Generator(
Größe( 960, 767 ),
Alarmbericht anzeigen( 1 ),
Grenzwertbeschriftungen anzeigen( 1 ),
Sigma-Bericht anzeigen( 1 ),
Fehlende Kategorien einschließen (0),
Variablen(
Untergruppe( :time ),
Untergruppe( :Einheit, Position( 1 ) ),
Y( :Parameter 1 )
),
Diagramm(
Position( 1 ),
Punkte( Statistik( „Individuell“) ),
Grenzen( Sigma( „Moving Range“) ),
Warnungen(
Test 1( 1 ),
Test 2( 1 ),
Test 3( 1 ),
Test 4( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test 7( 1 ),
Test 8( 1 ),
Regel 1 2S( 1 ),
Regel 1 3S( 1 ),
Regel 2 2S( 1 ),
Regel R 4S( 1 ),
Regel 4 1S( 1 ),
Regel 10 X( 1 ),
Testen Sie über Grenzen hinaus( 1 )
),
Prozessfähigkeitsanalyse (Histogramm (1, innerhalb der Sigma-Dichte anzeigen (0)))
),
Diagramm(
Position( 2 ),
Punkte( Statistik( „Moving Range“) ),
Grenzen( Sigma( „Moving Range“) ),
Warnungen( Test Beyond Limits( 1 ) )
),
Diagramm(
Position( 3 ),
Punkte( Statistik( „Moving Range“) ),
Grenzen( Sigma( „Moving Range“) ),
Warnungen( Test Beyond Limits( 1 ) )
),
Lokaler Datenfilter( Filter hinzufügen( columns( :filter 1 ) ) ),
Systemsteuerung anzeigen( 0 ),
SendToReport(
Versenden(
{},
„Parameter 2“,
ScaleBox,
{Format( "Fixed Dec", 12, 2 ), Min( 0 ), Max( 1), Inc( 0.1 ),
Minor Ticks( 0 )}))));
Dieses Beispiel für den Scripting Index soll veranschaulichen, wie es geht:
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" );
