336212_zh-CN

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

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

 

图形脚本编写