AutoCad - Elegir un texto y remplazarlo por un valor

Tengo un problema con este codigo. Es mi primer programa y no se como resolverlo.
la idea del progra es que yo ingrese un valor, y a este valor someterle a una operacion y el resultado remplazarlo sobre un texto que yo elija.
Mi problrema creo que esta en la penultima linea. Espero alguin pueda ayduarme con mi problema. muchas gracias

les comparto mi codigo:


(defun c:cvol()

(setq volin (getreal "\ingrese Volumen en in: "))

;operaciones
(setq Puft (/ volin (* 12 12 12)))

;remplazar valores

(setq EntidadReemp (entsel "\nSeleccione el texto a reemplazar: "))
(setq NomEntidadReemp (car EntidadReemp))
(setq BaseNomEntidadReemp (entget NomEntidadReemp))


;aca es mi problema, no se como remplazar la Puft de cuenta del valor del texto selecciona

(setq ListEntNuevaTexto (subst ( cons 1 Putf) (assoc 1 BaseNomEntidadReemp) BaseNomEntidadReemp))

(entmod ListEntNuevaTexto)


(princ)
)

Hola

Es un tema simple de tipos de datos

Cuando le mandas un (1 . Putf) a la lista de definición, esta espera una cadena de texto para el valor de Putf y le está llegando un número real.

La solución sería algo como (cons 1 (rtos Putf))

Lo pudiste resolver, me gustaría ver como lo hiciste.
__________________________________________________
Soy arquitecto en departamentos en Querétaro