nuvola=ReadList["(*qui dovete inserire il path del vostro file *)",Number,RecordLists->True];

nuvola

nuvola[[1]]

Length[nuvola]

(* il prossimo comando serve per eliminare le ultime tre coordiante *)

nuvola1=Map[Drop[#,-3]&,nuvola];

nuvola1[[1]]

Graphics3D[Point[nuvola1],Axes->True]

Length[nuvola1]

Map[Min,Transpose[nuvola1]]

Map[Max,Transpose[nuvola1]]

Graphics3D[Point[nuvola1],Axes->True]

(* con il comando seguente si eliminano  le regioni non interessanti *)

nuvola2=Select[nuvola1,#[[3]]<3&];

Length[nuvola2]

(* per vedere meglio e' utile rimpicciolire i punti *)

Graphics3D[{PointSize[.001],Point[nuvola2]},Axes->True]