How to Add the value in drawing

  (defun c:addv ( / Total ss e)
(vl-load-com)  
  (if (setq total 0 ss (ssget "_X" '((0 . "TEXT")(1 . "*#*L/s"))))
     (progn
       (repeat (setq i (sslength ss))
       (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
       (setq total (+ (atoi  (vl-string-right-trim
                                         " L/s"
                                         (vla-get-textstring e)
                                         )
                                     ) total)))
                 [b][color=darkred](alert (strcat "Total=\t" (itoa total)))[/color][/b])
          (princ "\nNone Found:")
         )(princ)
 )

EDIT: Too many cut and paste, cut and paste, trim. trim. trim

Vanilla ...

(defun c:addv (/ Total ss i sn)
 (if (setq total 0
           ss    (ssget  '((0 . "*TEXT") (1 . "*#*L/s")))
     )
   (progn
     (repeat (setq i (sslength ss))
       (setq sn (ssname ss (setq i (1- i))))
       (setq total
              (+ (atoi
                   (substr (cdr (assoc 1 (entget sn)))
                           1
                           (- (strlen (cdr (assoc 1 (entget sn)))) 3)
                   )
                 )
                 total
              )
       )
     )
     (princ (strcat "\nTotal :" (itoa total)))
   )
   (princ "\nNone Found:")
 )
 (princ)
)

Where the heck have you've been hiding Tharwat?

Where the heck have you've been hiding Tharwat?

I had a very bad sunstroke that kept me sleeping for a week now .

Thanks for asking my friend .

thanks boss its working nice

but the result is not coming on screen if you can improve the code it will helpfull for us

(alert (strcat "Total=\t" (itoa total))))

instead

 
(princ (strcat "\nTotal " (itoa total)))

thanks bro,

thanks bro,

Glad to help

Cheers kamig