Needs["dsvsolve`"];

Input

example={$$domains->{{-L, -L, 0, L}, {0, -L, L, 0}},
$$coefficients->{1, 1},
$$traction->0,$$wheretraction->{0, 0},
$$bending->    {-M/Sqrt[2],-M/Sqrt[2]}}
dSVcShowInput[example]

Output

sol = {AB, rG, JB, sigma, gobj, details} = dSVcSolve[example];
gsol=dSVcShowOutput[example, sol]

CellPrint/@Rest/@Last[sol];
Print/@Cases[gsol,Graphics[___],Infinity];