Wolfram Cloud Document

In[]:=

Remove@"Global`*"

In[]:=

Manipulate[GraphicsRow[{Region[Style[ImplicitRegion[x-point[[1]]0||y-point[[2]]0||z-point[[3]]0,{x,y,z}],Thick,PointSize[Large]],PlotRange5,ViewPoint{50,40,30},AxesTrue,AxesLabel{x,y,z},AxesOrigin{0,0,0}],Region[Style[ImplicitRegion[x-point[[1]]0&&y-point[[2]]0&&z-point[[3]]0,{x,y,z}],Thick,PointSize[Large]],PlotRange5,ViewPoint{50,40,30},AxesTrue,AxesLabel{x,y,z},AxesOrigin{0,0,0}]}],Item[Control@{{point,{1,1,1}},ControlTypeInputField},BaseStyle18]]

Out[]=

point

{1,3,-2}