Graphics3D[{{{Thickness[0.01], Line[{{0., 0., 0.}, {5., 0., 0.}}], Text[StyleForm["x", FontSize -> 20.], {6., 0., 0.}]}, {Thickness[0.01], Line[{{0., 0., 0.}, {0., 5., 0.}}], Text[StyleForm["y", FontSize -> 20.], {0., 6., 0.}]}, {Thickness[0.01], Line[{{0., 0., 0.}, {0., 0., 5.}}], Text[StyleForm["z", FontSize -> 20.], {0., 0., 6.}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {-5., 0., 0.}}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {0., -5., 0.}}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {0., 0., -5.}}]}}, {PointSize[0.05], RGBColor[0., 0., 1.], Point[{x, y, z}]}, {Thickness[0.005], Line[{{1.*x, 0., 0.}, {1.*x, 1.*y, 0.}, {0., 1.*y, 0.}, {0., 1.*y, 1.*z}, {0., 0., 1.*z}, {1.*x, 0., 1.*z}, {1.*x, 0., 0.}}], Line[{{1.*x, 0., 1.*z}, {1.*x, 1.*y, 1.*z}, {0., 1.*y, 1.*z}}], Line[{{1.*x, 1.*y, 0.}, {x, y, z}}]}, Text[StyleForm[StringForm["(`1`,`2`,`3`)", xr, yr, zr], FontSize -> 20.], {x, y, 1. + z}], {PointSize[0.03], RGBColor[1., 0., 0.], Point[{x, 0., 0.}]}, {PointSize[0.03], RGBColor[1., 0., 0.], Point[{0., y, 0.}]}, {PointSize[0.03], RGBColor[1., 0., 0.], Point[{0., 0., z}]}}, Boxed -> False, ViewPoint -> {40., 10., 20.}]