(defun C:convert_ii_skv_to_txt (/ list-skv x block-list list-all-atts ssnabor)
  (setq ssnabor (ssget '((0 . "INSERT"))))
  (setq block-list (convert_ss_to_list ssnabor))
  (foreach x block-list
    (setq list-all-atts (get-all-atts x))
    (if (cdr(assoc "HEIGHT" list-all-atts))
      (setq list-skv (append list-skv (list (strcat (cdr(assoc "NUMBER" list-all-atts))"\t"(cdr(assoc "HEIGHT" list-all-atts))))))
      (progn (terpri)(princ (cdr(assoc "NUMBER" list-all-atts))))
      )
    )
  (file_write_list_to_file "C:\\skv.txt" list-skv)
  (alert "Файл со скважинами сформирован!(C:\skv.txt)")
  (princ)
  )