Вставка анонимного блока модуля печати

(defun ru-block-insert-unit-unnamed (point scale layer)
;;;* Аргументы:
;;;*  - point, точка вставки
;;;*  - scale, LIST, масштаб по осям
;;;*  - layer, слой, если NIL, использует текущий
;;;* Возвращает DXF вставки или NIL при неудаче
    (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))
		     ) ;_ end of list
	     ) ;_ end of append
    ) ;_ end of entmake
) ;_ end of defun