AutoCad - VGAETE Atributo

Hola Amigo: aqui tengo una rutina totalmente diferente a la anterior que te envie para cambiar los datos de un atributo, (sumar o restar)...
(defun c:vale (/ NA ESEL EL BN ESELL ELL VL TG AA)
(setq NA (getreal "Ingrese valor a (+)sumar o (-)restar: "))
(while (setq ESEL (entsel "\nSeleccione bloque (ENTER para terminar): "))
(setq EL (entget (car ESEL)))
(setq BN (cdr (assoc 2 EL)))
(setq ESELL (nentselp (cadr ESEL)))
(setq ELL (entget (car ESELL)))
(setq VL (if (= (cdr (assoc 0 ELL)) "ATTRIB")
(cdr (assoc 1 ELL))))
(setq TG (if (= (cdr (assoc 0 ELL)) "ATTRIB")
(cdr (assoc 2 ELL))))
(setq AA (if (= (cdr (assoc 0 EL)) "INSERT")
(cdr (assoc -1 EL))))
(if (= (cdr (Assoc 2 ELL)) TG)
(progn
(setq ELL
(subst (cons 1 (rtos (+ NA (atof VL)) 2 2))
(assoc 1 ELL)
ELL))
(entmod ELL)
)
)
(entupd AA)
)
(princ)
)

Me costo... ahora voy a tratar de hacer la automatica...

Un saludo de SpeedCAD... :-)