Нормализация всех блоков

(defun ru-batch-normal-block-lib
       (block_file / block_obj  vla_sset_obj)
  (princ (strcat "
Обрабатываю " block_file))
  (vla-purgeall (ru-obj-get-active-document))
  (vla-purgeall (ru-obj-get-active-document))
  (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
  ) ;_ end of setq
  (ru-normal-all)
  (vl-file-copy block_file (ru-file-set-ext block_file ".bak"))
  (if
    (setq vla_sset_obj
           (ru-ss-entlast-to-vla-sset)
    ) ;_ end of setq
     (vla-wblock (ru-obj-get-active-document) block_file vla_sset_obj)
     (princ (strcat "
ОШИБКА. Не создан набор для записи " block_file))

  ) ;_ end of if
  (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 "
готово
")
) ;_ end of defun