AutoCAD Multiplicar por un valor un texto numérico

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.
 
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

(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)
)
 
Hola, @martin garcia.
Copias el código (texto) y lo pegas en un archivo nuevo del Bloc de notas de Windows (no te recomiendo Word) y creas ese archivo 106por.lsp o el nombre que quieras pero con extensión .lsp
Tal como está definida la rutina, se ejecuta con la orden 106por. Puedes cargarla con Herramientas > Cargar aplicación, o bien simplemente la arrastras a la pantalla de AutoCAD.
Saludos.
 
Arriba