722308_zh-CN

liliconcom

自动注释图

我创建了一个脚本来获取规范文档并将规范限制和注释应用于数据文件。我试图想出一种方法来自动将注释输入作为注释添加到后续绘图中。

我在用户社区的帮助下想出了这个方案。想知道是否有明显的机会使脚本在可以自动注释的绘图类型方面更加灵活？

clear Globals();

Delete Symbols();



dt=Current Data Table();

cd=Column Dialog(

       exy =

       ColList( "Y",

              Min Col( 1 ),

              Max Col( 100 ),

       ),

       exx =

       ColList( "X",

              Min Col( 1 ),

              Max Col( 10 ),

       ),



);





eval(cd[1]);eval(cd[2]);

yyy=expr(y());

xxx=expr(x());

xval = exx[1];

for (i=1, i<=nitems(exy), i++,

insert into(yyy, exy[i]));

for (i=1, i<=nitems(exx), i++,

insert into(xxx, exx[i]));



nw = New Window( "Annotated Multiple Plots", V List Box( vlb = v List Box() ) );



For( i = 1, i <= N Items( exy ), i++,

Notes = exy[i] << Get Property( "Notes" );

       plots = V List Box(

       oneway( x( exx[1] ), y( exy[i] ),

              SendToReport(

              Dispatch(

                     {},

                     "Oneway Plot",

                     FrameBox,

                     Add Text Annotation(

                           Text( "Category: " || Notes ),

                           Fixed Size( 0 ),

                           Text Box( {0, 0, 0, 0} ),

                           Filled( 0 ),

                           Font( "Segoe UI", 10, "Bold" )

                     )

              ) )

       ));

       vlb << append( plots );

);

如果您发现任何改进此脚本的机会，我愿意接受建议？

谢谢

十二月

自动化和脚本编写回复：自动注释图表

您的 Y 列输入需要受到限制以确保只能指定数字列。