Преобразование мульти-вставки в массив блоков

(defun ru-block-minsert-to-array (block / param dxf)
;;;* Аргумент - примитив вставки блока ENAME.
;;;* Преобразует мультивставку в массив блоков.
;;;* Возвращает список элементов массива VLA-Object.
    (setq param	(ru-block-get-array-cfg block)
	  dxf	(entget block)
    ) ;_ end of setq
    (entdel block)
    (entmake (ru-ent-dxf-code-clear-list dxf '(-1 330 5 70 71 44 45) nil))
    (setq block (entlast))
    (if	(< 1 (apply '* (car param)))
	(ru-obj-array-rectangular
	    block
	    (caar param)
	    (cadar param)
	    1
	    (caadr param)
	    (cadadr param)
	    0
	) ;_ end of ru-obj-array-rectangular
	(list (vlax-ename->vla-object block))
    ) ;_ end of if
) ;_ end of defun