One option could be to overlay the graphic script with other graphic script. There might be a way to add pen color to the "Current Model Fit" but I'm not sure how
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Nonlinear Examples/US Population.jmp");
obj = dt << Nonlinear(Y(:pop), X(:"X-formula"n), Finish());
Eval(EvalExpr(
Report(obj)[FrameBox(1)] << Add Graphics Script(
p = Expr(Report(obj)[FrameBox(1)]);
Pen Color("Red");
f1 = (p << Find Seg(Top Seg(1))) << get script;
f2 = Arg(f1);
If(Head Name(f2) == "Y Function",
Eval(f2);
);
);
));
-Jarmo