Get the list of points on the line using TCL script

I have a surface and I'm able to get the list of lines on it. But I'm not able to get the list of points on a line.

 set surfIDs [ hm_getmark surfs 1] *createmark lines 1 'by surface' {*}$surfIDs  set lineList [hm_getmark lines 1] puts 'Number of lines on the selected surface: [llength $lineList]'  #Trying to extract points using line id set lineId1 [lindex $lineList 0] *createmark points 1 'by id' $lineId1 set pointList [hm_getmark points 1] puts 'Number of points on the selected line: [llength $pointList]'