336212_zh-TW

liliconcom

將圖表從變異圖複製到PNG文件

大家好

 

 

在回顧了關於XPATH函數的一些討論並使用了JMP JSL之後，下面的腳本提供了幫助。

想要共享此腳本，以將變異圖到桌面文件夾的圖形作為PNG文件處理。

當編寫帶有乘法圖的報告時，這確實有幫助。

在其他平台上可以使用的主要和關鍵參數是數字，該數字用於劃分“ xpath”函數和outlinebox函數中的對應f（i）函數。

 

在這種情況下，xpath除法器為= 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();
);

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

 

圖形腳本編寫