AutoCAD Multiplicar por un valor un texto numérico

#1
Saludos al grupo.
¿Sabe alguien de alguna utilidad para multiplicar por un factor cualquiera una serie de textos numéricos?
Hace tiempo utilicé una rutina LISP (inc.lisp) que sumaba una cantidad a los textos que se seleccionaban, he intentado modificarla, pero mi mala cabeza no da para tanto.
Gracias anticipadas.
 
#2
Te puedo ayudar...
¿Tienes varios textos y deseas aplicarle un factor de multiplicación?
Ejemplo *13

15 ---> 195
25 ---> 325
61 ---> 793
48 ---> 624
90 ---> 1.170

Código:
(defun C:106por (/ p l n e os as ns st s nsl osl sl si chf chm olderr)
   (setq olderr  *error*             
         *error* chgterr
         chm     0)
   (setq p (ssget))                 
   (setq inc (getreal "\nIncremento:"))
      (setq l 0 n (sslength p))
      (setvar "luprec" 0)
      (while (< l n)                 
         (if (= "TEXT"               
                (cdr (assoc 0 (setq e (entget (ssname p l))))))
               (progn
                (setq s (cdr (setq as (assoc 1 e))))
                (setq mn (atof s))
                (setq nm (* mn inc))
                (setq s (rtos nm 2 2))
                (setq e (subst (cons 1 s) as e))
                (entmod e)         
                (setq chm (1+ chm))
               )
         )
         (setq l (1+ l))
      )
(setvar "luprec" 2)
   (princ chm)
   (princ " lineas de texto")
   (princ " modificadas.")
   (terpri)
   (setq *error* olderr)             
   (princ)
)
 
Arriba