Добавление объектов из набора selection в блок, заданный примитивом вставки

(defun ru-block-obj-add-objects
                                (block_ref_ent  selection
                                 /              blk_def_obj
                                 block_ref_obj  ins_pnt
                                 ref_pnt        ss_array
                                )
;|Добавление объектов из набора selection в блок, заданный примитивом вставки
|;

  (setq block_ref_obj (vlax-ename->vla-object block_ref_ent)
        blk_def_obj   (vla-item (ru-obj-get-blocks)
                                (vla-get-name block_ref_obj)
                      ) ;_ end of vla-item
        ins_pnt       (vlax-variant-value (vla-get-insertionpoint block_ref_obj))
        ss_array      (ru-ss-to-vla-array selection)
        ref_pnt       (vlax-3d-point '(0 0 0))
  ) ;_ end of setq
  (foreach ent (vlax-safearray->list ss_array)
    (vla-move ent ins_pnt ref_pnt)
  ) ;_ end of foreach
  (vla-copyobjects (ru-obj-get-active-document) ss_array blk_def_obj)
  (foreach ent (vlax-safearray->list ss_array)
    (vla-delete ent)
  ) ;_ end of foreach
  (princ)
) ;_ end of defun