Динамическое создание блока на слое 0 с цветом byblock

(defun ru-block-din-make (name
                          ins_pnt
                          selection
                          lineweight
                          /

                          vla_array_objs
                         )
  ;;Создание блока на слое 0 с цветом byblock
  (setq vla_array_objs (vlax-make-variant (ru-ss-to-vla-array selection)))
  (ru-obj-vla-array-move vla_array_objs ins_pnt (list 0 0 0))
  (ru-obj-vla-array-mod vla_array_objs "Layer" "0")
  (ru-obj-vla-array-mod vla_array_objs "Color" acbyblock)
  (if lineweight
    (ru-obj-vla-array-mod vla_array_objs "Lineweight" lineweight)
  ) ;_ end of if
  (ru-block-obj-make-from-vla-array name (list 0 0 0) vla_array_objs)
) ;_ end of defun