(defun C:clear-rw5-file-of-note (/ clear-list-rw5 list-rw5 patch-rw5)
  (setq patch-rw5 (getfiled "Выбор файла OpenStreetMap" (getvar "DWGPREFIX") "rw5" 0))
  (setq list-rw5 (file_read_to_list patch-rw5))
  (foreach x list-rw5
    (if (not(eq "--" (substr x 1 2)))
      (setq clear-list-rw5 (append clear-list-rw5 (list x)))
      )
    )
  (file_write_list_to_file (strcat (vl-filename-directory patch-rw5)"\\"(vl-filename-base patch-rw5)"_"(vl-filename-extension patch-rw5)) clear-list-rw5)
  (princ)
  )