Создание объекта блока из VLA-массива

(defun ru-block-obj-make-from-vla-array (name
                                         base_point
                                         arr_objects
                                         / obj )
;;; Возвращает VLA-объект определения блока

  (ru-error-catch
    (function
      (lambda ()
        (vla-copyobjects
          (ru-obj-get-active-document)
          arr_objects
          (setq obj (vla-add (ru-obj-get-blocks) (vlax-3d-point base_point) name))
        ) ;_ end of vla-copyobjects
        (ru-obj-vla-array-erase arr_objects)
        obj
      ) ;_ end of lambda
    ) ;_ end of function
    (function
      (lambda (msg)
        (princ (strcat "
RU-BLOCK-OBJ-MAKE-FROM-VLA-ARRAY: " msg))
        nil
      ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of ru-error-catch

) ;_ end of defun