Sumar cantidades

Bill DeShawn

2004-01-16 15:26:16 UTC

Hice una rutina LISP que lo hace. Pero está en inglés. Aquí está:

(defun c:addit (/ adders index total ent elist num ent2 elist2 roi oldtotal)
(command "_.undo" "_g")
(setq adders (ssget))
(setq index 0)
(setq total 0.0)
(repeat (sslength adders);loop 3
(setq ent (ssname adders index))
(setq elist (cdr (entget ent)))
(setq index (1+ index))
(setq num (atof (cdr (assoc 1 elist))))
(setq total (+ total num))
)
(setq ent2 (entsel "\nSelect text object for total: "))
(redraw (car ent2) 3)
(setq elist2 (entget (car ent2)))
(setq roi (strcase (getstring "\nReal or Integer? <I>")))
(if (= roi "")(setq roi "I"))
(if (= roi "I")
(progn
(setq total (fix total))
(setq total (itoa total))
(setq oldtotal (assoc 1 elist2))
)
(progn
(setq plcs (getint "\nHow many decimal places? "))
(setq oldtotal (assoc 1 elist2))
(setq total (rtos total 2 plcs))
)
)
(setq elist2 (subst (cons 1 total) oldtotal elist2))
(entmod elist2)
(redraw (car ent2) 4)
(command "_.undo" "_end")
(princ)
)

Meta el código arriba en un archivo de notepad y nombra el archivo
ADDIT.LSP. Cárguelo en autocad con _APPLOAD o así (load "addit") y
ejecútelo así: ADDIT.

saludos

--
Bill DeShawn
***@nospamsterling.net
http://my.sterling.net~bdeshawn

Post by Ãngeles
Hola grupo.
Soy nueva en esto de los grupos de noticias y ésta es la primera vez que
escribo en uno , aunque llevo algo de tiempo leyéndolos.
¿Es posible sumar (automáticamente, claro) varios números en Autocad? Me da
igual si es con varios textos o con un texto múltiple con diferentes
cantidades, ya que es fácil pasar de uno a otro.
También me sería útil si el modo de hacerlo fuese pasando las cantidades a
una hoja excel, pero mis conocimientos de este último programa son muy
escasos, por lo que habría que explicarlo en versión "para tontos".
Muy agradecida por la ayuda.