Запись блока в выбранный комментированный файл

(defun ru-block-write-block (caption
                             start_dir
                             root_dir
                             /
                             base_point
                             comment
                             file_name
                             note_base_point
                             selection

                            )
  ;; запись блока в комментированный файл
  ;; возвращает список из имени записанного файла и комментария
  ;|

|;

  (princ "
Ждите, загружаю навигатор...")
  (if
    (setq file_name
           (ru-dlg-file-select-or-new-dwg
             caption
             start_dir
             root_dir
             ""
             t
           ) ;_ end of ru-dlg-file-select-or-new-dwg
    ) ;_ end of setq
     (progn
       (setq file_name (car file_name)
             comment   (ru-file-read-dirinfo-file-comment file_name)
       ) ;_ end of setq
       (princ "
Выбор объектов для записи:
")
       (if (setq selection (ru-ss-get-or-ssfirst))
         (progn
           (setq base_point      (ru-get-point-reguired
                                   "Базовая точка для последующих вставок"
                                   nil
                                 ) ;_ end of ru-get-point-reguired

           ) ;_ end of setq
           (ru-block-write-with-comment
             file_name
             comment
             base_point
             selection
             t
           ) ;_ end of ru-block-write-with-comment
         ) ;_ end of progn
       ) ;_ end of if
       (list file_name comment)
     ) ;_ end of progn
     NIL
  ) ;_ end of if
) ;_ end of defun