336212_it-IT

liliconcom

Copia il grafico dal grafico della variabilità ai file PNG

Ciao a tutti

 

 

Dopo aver esaminato alcune discussioni sulla funzione XPATH e aver utilizzato l'aiuto di JMP JSL, è uscito lo script seguente.

Volevo condividere questo script per far fronte al grafico dal grafico della variabilità alla cartella desktop come file PNG.

Questo aiuta davvero quando si scrive un report con grafici multipli.

Il parametro principale e critico affinché funzioni su un'altra piattaforma è il numero utilizzato per dividere la funzione "xpath" e la funzione f(i) corrispondente alla funzione outlinebox.

 

In questo caso il divisore xpath era = 2.

f(i) = 2*i-1.

 

 

//-------------------------

Clear Log();
Names Default To Here( 1 );

while( 1,
    If( Is Directory( "$DESKTOP/Graph" ) == 0, 
       //if no directory -> create folder and display Message
              rc = Create Directory( "$DESKTOP/Graph" );
       //copy graphs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        for( i = 1, i <= N Items( Current Report() << XPath( "//OutlineBox" ) ) / 2, i++,
            Current Report()[Outline Box( 2 * i - 1 )] << Save Picture(
                "$DESKTOP/Graph/Graph" || Char( i ) || ".PNG", "PNG"
            );
            Wait( 0.001 );
        );

&nbsp;&nbsp; //display Message&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        New Window( "Message",
            modal,
            H List Box(
                Spacer Box( size( 5, 0 ) ),
                Text Box( "All graphs are saved at new folder at Desktop/Graph" )
            )
        );

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //if there is directory -> check if empty if no break if yes continue
    ,
        if( N Items( Files In Directory( "$DESKTOP/Graph" ) ) > 0,
            New Window( "Message",
                modal,
                H List Box( Spacer Box( size( 5, 0 ) ), Text Box( "Please empty folder DESKTOP/Graph" ) )
            );
            Break();
        , 

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //copy graphs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;            for( i = 1, i <= N Items( Current Report() << XPath( "//OutlineBox" ) ) / 2, i++,
                Current Report()[Outline Box( 2 * i - 1 )] << Save Picture(
                    "$DESKTOP/Graph/Graph" || Char( i ) || ".PNG", "PNG"
                );
                Wait( 0.001 );
            );

&nbsp;&nbsp; //display Message&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;            New Window( "Message",
                modal,
                H List Box(
                    Spacer Box( size( 5, 0 ) ),
                    Text Box( "All graphs are saved at new folder at Desktop/Graph" )
                )
            );
        )
    );

    Break();
);

//-------------------------

 

GraficaSceneggiatura