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,5},{-5,5},{-5,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,5},{-5,5},{-5,5}},ViewPoint{50,40,30},​​AxesTrue,AxesLabel{x,y,z},AxesOrigin{0,0,0}]​​}],​​{{point,{1,1,1}},{-5,5},{-5,5},{-5,5}},ControlTypeInputField]
In[]:=
​
point
{1,3,-2}