如何动态改变X轴的垂直线?我这样画图,然后每分钟循环一次,要求是X轴的竖线能根据指定变量的值变化
谢谢专家!

a=26;
dt=Open("$SAMPLE_DATA/Big Class.jmp");
ca="r";New Column(ca);
p1=dt<< Graph Builder(
Variables( X( Transform Column( "Row", Formula( Row() ) ) ), Y( :height ) ),
Elements( Line( X, Y, Legend( 5 ) ) ),
SendToReport(
Dispatch(
{},
"Row",
ScaleBox,
{Add Ref Line( a, "Dotted", "Medium Light Red", "", 1 )}
)
)
);
While( 1,
a=Random Integer(1, 40);//Column(ca)<
<FORMULA></FORMULA>
<LINGO-LABS id="lingo-labs-881321" slang="en-US" mode="CREATE">
<LINGO-LABEL>自动化和脚本</LINGO-LABEL>
</LINGO-LABS>
回复:如何动态改变X轴的垂直线?好的
gb_report = p1 << Report;
axisbox = gb_report[Axis Box( 1 )];
While( 1,
axisbox << Remove Ref Line( a );
a = Random Integer( 1, 40 );
axisbox << Add Ref Line( a, "Dotted", "Medium Light Red", "", 1 );
Wait( 2 );
);
回复:如何动态改变X轴的垂直线?看来遇到像 wrap 这样的重叠并不是那么简单

回复:如何动态改变X轴的垂直线?使用带有“全局”变量的图形脚本
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
a = 26;
gb = dt << Graph Builder(
Variables(X(Transform Column("Row", Formula(Row()))), Y(:height)),
Elements(Line(X, Y, Legend(5)))
);
Report(gb)[FrameBox(1)] << Add Graphics Script(
Pen Size(2);
V Line(a);
);
For(i = 1, i <= 10, i++,
a = Random Integer(1, 40); // could also use table variable
Wait(0.5);
Report(gb) << Inval;
Report(gb) << Update Window;
);
Write();
回复:如何动态改变X轴的垂直线?至于实际的例子,我还不知道。
图表与包装重叠
原先设置的其他效果都消失了,也没有出现垂直线条。

回复:如何动态改变X轴的垂直线?只有一个谢谢! 
回复:如何动态改变X轴的垂直线?您可能必须将其添加到所有框架框(Wrap/X Group/Y Group 会创建多个)
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
a = 26;
gb = dt << Graph Builder(
Transform Column("Row", Formula(Row())),
Size(525, 496),
Show Control Panel(0),
Variables(X(:Row), Y(:height), Wrap(:age)),
Elements(Line(X, Y, Legend(5)))
);
fbs = Report(gb) << XPath("//FrameBox");
fbs << Add Graphics Script(
Pen Size(2);
V Line(a);
);
For(i = 1, i <= 10, i++,
a = Random Integer(1, 40); // could also use table variable
Wait(0.5);
Report(gb) << Inval;
Report(gb) << Update Window;
);
Write();