If you don't mind messing up your clipboard it can be luckily quite simple to script (if axisbox behave always like this)
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << New Formula Column(
Operation(Category("Combine"), "Product"),
Columns(:height, :weight)
);
ccb = dt << Control Chart Builder(
Show Two Shewhart Charts(0),
Show Limit Summaries(0),
Variables(Y(:height, :weight, "height*weight"n)),
Chart(
Points(Statistic("Individual")),
Limits(Sigma("Moving Range"), Show Lower Limit(0), Show Upper Limit(0))
),
Show Control Panel(0)
);
Report(ccb)[AxisBox(1)] << Max(60); // demo purposes
Report(ccb)[AxisBox(1)] << Copy Axis Settings;
abs = (Report(ccb) << XPath("//AxisBox"));
xabs = abs[3::N Items(abs)::2];
xabs << Paste Axis Settings;
Or I think you can use << Copy Script and then send that list of settings
ascript = Report(ccb)[AxisBox(1)] << Get Script;
abs = (Report(ccb) << XPath("//AxisBox"));
xabs = abs[3::N Items(abs)::2];
Eval(EvalExpr(
Send(xabs, Expr(ascript))
));
-Jarmo