Создаёт мультивставку безымянного блока

(defun ru-block-minsert-unit-unnamed (point scale layer matrix)
;;;* Аргументы:
;;;*  - point, точка вставки
;;;*  - scale, масштаб по осям
;;;*  - layer, слой, если NIL использует текущий
;;;*  - matrix, размер матрицы по осям
;;;* Создаёт мультивставку безымянного блокоа.
;;;* Возвращает DXF мультивставки.
    (entmake (append '((0 . "INSERT")
		       (100 . "AcDbBlockReference")
		       (62 . 256)
		       (50 . 0)
		      )
		     (list (cons 2 (ru-block-make-unit-unnamed))
			   (cons 10 point)
			   (cons 8
				 (cond (layer)
				       ((getvar "CLAYER"))
				 ) ;_ end of cond
			   ) ;_ end of cons
			   (cons 41 (car scale))
			   (cons 42 (cadr scale))
			   (cons 70 (car matrix))
			   (cons 71 (cadr matrix))
			   (cons 44 (car scale))
			   (cons 45 (cadr scale))
		     ) ;_ end of list
	     ) ;_ end of append
    ) ;_ end of entmake
) ;_ end of defun