Созддаёт безымянный единичный блок и возвращает его "имя"

(defun ru-block-make-unit-unnamed (/ item)
;;;* Созддаёт безымянный единичный блок и возвращает его "имя". Помещает
;;;* имя в глобальную переменную: *ru-block-unit-unnemed*
;|
Специальный "блок-конверт" для печати
(setq *ru-block-unit-unnemed* NIL)
|;
    (if	(or (not *ru-block-unit-unnemed*)
	    (not (tblobjname "block" *ru-block-unit-unnemed*))
	) ;_ end of or
	(setq *ru-block-unit-unnemed*
		 (foreach item '(((0 . "BLOCK")
				  (100 . "AcDbBlockBegin")
				  (2 . "*U0")
				  (70 . 1)
				  (10 0.0 0.0 0.0)
				  (62 . 256)
				 )
				 ((0 . "LWPOLYLINE")
				  (100 . "AcDbPolyline")
				  (90 . 4)
				  (70 . 1)
				  (43 . 0.01)
				  (38 . 0.0)
				  (39 . 0.0)
				  (10 0.0 0.0)
				  (10 1.0 0.0)
				  (10 1.0 1.0)
				  (10 0.0 1.0)
				  (210 0.0 0.0 1.0)
				  (62 . 0)
				 )
				 ((0 . "LWPOLYLINE")
				  (100 . "AcDbPolyline")
				  (90 . 2)
				  (70 . 0)
				  (43 . 0.01)
				  (38 . 0.0)
				  (39 . 0.0)
				  (10 0.0 0.0)
				  (10 1.0 1.0)
				  (210 0.0 0.0 1.0)
				  (62 . 0)
				 )
				 ((0 . "LWPOLYLINE")
				  (100 . "AcDbPolyline")
				  (90 . 2)
				  (70 . 0)
				  (43 . 0.01)
				  (38 . 0.0)
				  (39 . 0.0)
				  (10 0.0 1.0)
				  (10 1.0 0.0)
				  (210 0.0 0.0 1.0)
				  (62 . 0)
				 )
				 ((0 . "ENDBLK")
				  (100 . "AcDbBlockEnd")
				 )
				)
		     (entmake (append (list (car item)
					    '(100 . "AcDbEntity")
				      ) ;_ end of list
				      (append (cdr item)
					      '((8 . "0")
						(67 . 0)
						(410 . "Model")
					       )
				      ) ;_ end of append
			      ) ;_ end of cons
		     ) ;_ end of entmake
		 ) ;_ end of foreach
	) ;_ end of setq
    ) ;_ end of if
    *ru-block-unit-unnemed*
) ;_ end of defun