Autolisp para Autocad y Bricscad

AurtoLisp que suma números en formato texto

Archivo sumetext.lsp

1. Busca la aplicación.
2. Ejecute el comando sumtext.
3. Seleccione los textos a sumar, deben ser sin estilos.
4. Seleccione el texto donde desea visualizar la suma sin estilo.

Código sumetext.lsp

El código del archivo es el siguiente:

(defun C:sumtext()
(princ "\n\ .... cargado ...")
(princ)
(princ (strcat "\nSuma de numeros en texto, Version 0.01"))
(princ (strcat "\n © 2022 en adelante, Marco Polo Jácome Toss."))
(prompt "\n < Programa para realizar suma de valores en texto > ")
(prompt "\n Seleccione los elementos a sumar: ")
(setq  AL (ssget))
(setq  X 0)
(setq  J 0)
(setq  d1 0)
(setq  CX1 0)
(setq  C (sslength AL))
(setq   CON C)
(while (/= X CON)
	(setq  A (ssname AL X))
	(setq  B (entget A))
	(setq  D (assoc 1 B))
	(setq  d2 (CDR D))
	(setq  num (atof d2))
	(setq  d3 (strcat """(setq  cX1 num)"))
	(eval (read d3))
	(setq  d1 (+ d1 CX1))
	(setq  X (+ 1 X))
	(setq  J (+ 1 J))
)
(setq  d4 (rtos d1))
(prompt "El total es = ")
(prompt d4)(terpri)
(prompt "\n Seleccione el texto a modificar: ")
(setq  mod1 (entsel))
(setq  m (entget (car mod1)))
(setq  mod (assoc 1 m))
(setq  check4 (cdr mod))
(setq  v4 (atof check4))
(setq  f (cons (car mod) d4))
(setq  g (subst f mod m))
(entmod g)
(prompt"\n .......Exit.........")
)

Desarrollador

Autor : Marco Polo Jácome Toss	
Fecha de creación :  20 de Julio del 2013. © 2022 en adelante
Licencia : GNU General Public License (GPL) 3.0
Plataforma : AutoLisp sumtext.lsp
Código fuente creado para sumar textos sin estilos dentro del área de dibujo de AutoCAD y Bricscad