cc=ContourPlot[x^2+y^2,{x,0.0,1.0},{y,0.0,1.0},ContourShading->False,Contours->1]

line=cc[[1,2,2,2,2,1]]

cc[[1,1]][[#]]&/@line;

ListPlot[%]