Lisp somme

[youpla]

Salut à tous

 

J'aurais besoin d'un lisp pour faire des sommes de valeurs numériques inscrites dans des textes, auriez vous ça dans vos besaces??

 

MERKI et bonnes vacances certains

[lecrabe]

Hello

 

J'ai en stock la routine TOT_TXT ...

 

Chargement par APPLOAD

Execution en tapant au clavier TOT_TXT

 

Bye, lecrabe

 

PS: Au fait, qui a ecrit cette routine ?

 

 

;; Routine TOT_TXT.LSP
;; Fonctionne en principe sur les TEXT & MTEXT de type numerique

(defun c:tot_txt(/ doc sel tot)
(vl-load-com)
(setq tot 0 doc (vla-get-activedocument (vlax-get-acad-object)))
(if (ssget (list (cons 0 "TEXT,MTEXT")))
(progn
(vlax-map-collection (setq sel (vla-get-activeselectionset doc)) '(lambda (x) (setq tot (+ (atof (vla-get-textstring x)) tot))))
(vla-delete sel)
(princ (strcat "\nLe total est de " (rtos tot)))
)
)
(princ)
)

[youpla]

Super merci et quelle rapidité !