set status [SclSelectPoint point "Select a point" \
                           layer str_no seg_no pnt_no x y z desc]
puts "Layer=$layer, string=$str_no, segment=$seg_no, point=$pnt_no"
puts "X=$x, Y=$y, Z=$z"
