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

(defun ru-batch-block-save-all-names-and-decriptions
       (block_file / BLOCK_OBJ DESCR_FILE)
  (vla-purgeall (ru-obj-get-active-document))
  (setq block_obj  (ru-block-insert-obj
                     block_file
                     (list 0.0 0.0 0.0)
                     1
                     1
                     1
                     0
                   ) ;_ end of ru-block-insert-obj
        descr_file (ru-block-save-all-names-and-decriptions
                     (ru-file-set-ext block_file ".blocks")
                   ) ; _ end of
                     ; ru-block-save-all-names-and-decriptions
  ) ;_ end of setq
  (ru-obj-delete-object block_obj)
  ;; а это не проходит за раз - мусор
  (vla-purgeall (ru-obj-get-active-document))
  (vla-purgeall (ru-obj-get-active-document))
  (vla-purgeall (ru-obj-get-active-document))
  (vla-purgeall (ru-obj-get-active-document))
  (vla-purgeall (ru-obj-get-active-document))
  (princ (strcat "
Записаны имена и комментарии в " descr_file))
) ;_ end of defun