a={
Arrow[{{0,0,0},{1,0,0}}],
Arrow[{{0,0,0},{0,1,0}}],
Arrow[{{0,0,0},{0,0,1}}]};
l=Line[{{1,1,1},{4,1,1},{4,8,1},{4,8,5}}];
p=Point[{{1,1,1},{4,8,5}}];
Graphics3D[{
{Thickness[0.002], Pink, l},
{Thin, Gray, a},{Green, PointSize[0.04], p},
{Thickness[0.004],Blue, Line[{{1,1,1},{4,8,1}}]},
{Thickness[0.008],Green, Line[{{1,1,1},{4,8,5}}]},
Text["x",{1.2,0,0}],Text["y",{0,1.2,0}],Text["z",{0,0,1.2}],
Text[Style["Δx",Large],{2.5,0.5,1}],Text[Style["Δy",Large],{4.5,4.5,1}],Text[Style["Δz",Large],{4.5,8,3}]
}]