(defun get-txt-xyz-point-coor (put-file / list-file str xyz)
  (setq list-file(file_read_to_list put-file))
  (foreach x list-file
    (setq str (convert-string-to-list-be-delimiter x "\t"))
    (setq xyz (append xyz (list (list (nth 0 str)(atof(nth 1 str))(atof(nth 2 str))(atof(nth 3 str))))))
    )
  xyz
  )