aa = Graphics3D[{Opacity[0.5], Sphere[]}]; 
    bb = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], 0, 2 \[Pi]},
      PlotStyle -> Thickness[0.015]];
    cc =  ParametricPlot3D[{0, Cos[\[Phi]], Sin[\[Phi]]}, 
          {\[Phi], 0, 2 \[Pi]},
       PlotStyle -> Thickness[0.015]];
    dd =  ParametricPlot3D[{Cos[\[Phi]], 0, Sin[\[Phi]]}, {\[Phi], 0, 2 \[Pi]},
       PlotStyle -> Thickness[0.015]];
    Show[aa, bb, cc, dd]

[![enter image description here][1]][1]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]

[![enter image description here][2]][2]


  [1]: https://i.sstatic.net/aoRTu.png
  [2]: https://i.sstatic.net/DtQjp.png