P0={2,3,4}; Q0={3,4,6}; v0={1,1,1}; w0={2,4,-1};
l[v_]:=Sqrt[v.v]; 

PP[P_,Q_]:=Sqrt[(P-Q).(P-Q)];
PL[P_,{Q_,v_}]:=Module[{n=Cross[P-Q,v]/l[v]},l[n]];
PS[P_,{Q_,v_,w_}]:=Module[{n=Cross[v,w]},(P-Q).n/l[n]];
LL[{P_,v_},{Q_,w_}]:=Module[{n=Cross[v,w]},m=l[(P-Q).n]/l[n];

PP[P0,Q0]                          PL[P0,{Q0,v0}]
PS[P0,{Q0,v0,w0}]                  LL[{P0,v0},{Q0,w0}]
