Summation of numbers with prefix alphabets not working.

[brahmanandam.thadikonda762224]

Dear All,

I got a lisp code that is well working for summation of number with suffix alphabets, but not working for numbers with prefix alphabets. Please have a look on attachments and below lisp code.

(defun C:ADCC (/ cpent elist en ip newtxt pt ss sum sumtxt txt)
(princ "\n\t\t>>>  Select text to get summ >>>")
(if
;;select texts/mtexts on screen :
(setq ss (ssget '((0 . "*TEXT"))))
;; if selected then :
(progn
  ;; store the first text entity for using 'em further :
(setq cpent (ssname ss 0))
  ;; set initial sum to zero :
  (setq sum 0.)
  ;; loop trough selected texts/mtexts :
  (while
    ;; get the first text in selection :
    (setq en (ssname ss 0))
    ;; get entity list of them :
    (setq elist (entget en))
    ;; get the textstring by key 1 from entity list :
    (setq txt (cdr (assoc 1 elist)))
    ;; create output string :
    (setq sumtxt
                   ;; concatenate strings :
                   (strcat
                     ;; convert digits to string :
                     (rtos
                       ;; add to summ the digital value of text :
                       (setq sum (+ (atof txt) sum))
                       ;; 2 is for metric units (3 for engineering) :
                       2
                       ;; set precision by current :
                       (getvar "dimdec")))
                  )
    ;; delete entity from selection set :
    (ssdel en ss)
    )
  ;; display message in the command line:
  (princ (strcat "\nSumm=" sumtxt))
  (setq pt (getpoint "\nSpecify the new text location: "))
  ;; get the insertion point of stored entity :
  (setq ip (cdr (assoc 10 (entget cpent))))
  ;; copy text entity to the new destination point :
  (command "_copy" cpent "" ip pt)
  ;; get the last created entity :
  (setq newtxt (entlast))
  ;; get entity list of them :
  (setq elist (entget newtxt))
  ;; modify entity list with new text string :
  (entmod (subst (cons 1 sumtxt)(assoc 1 elist) elist))
  ;; update changes :
  (entupd newtxt)
  )
)
(princ)
  )
(princ "\nStart command with STX...")
(princ)

[Bruno.Valsecchi]

Hi,

You can try to change the line

(setq sum (+ (atof txt) sum))

by this:

(setq sum (+ (atof (vl-list->string (vl-remove-if-not '(lambda (x) (member x '(46 48 49 50 51 52 53 54 55 56 57))) (vl-string->list txt)))) sum))

BE CAREFUL: Keep all number in the string and point (.0123456789)

For exemple: if text is
"1-Hello. Keep number: 666.66 no good!"
return -> 1.666 and not 666.66 (1 before "-Hello" and . after) and (atof "1.666.66") return 1.666

[brahmanandam.thadikonda762224]

Dear Sir,

Thank you so much, Its working well

[brahmanandam.thadikonda762224]

Dear Sir,

Can we have a multiplication factor for outcome with "0.9".? Thank you in advance.

[Bruno.Valsecchi]

Dear Sir,

Can we have a multiplication factor for outcome with "0.9".? Thank you in advance.

Insert at this a line

  ;; display message in the command line:
  (princ (strcat "\nSumm=" sumtxt))

became

  ;; display message in the command line:
  (setq sum (* sum 0.9))
  (princ (strcat "\nSumm=" sumtxt))

[brahmanandam.thadikonda762224]

Insert at this a line

  ;; display message in the command line:
  (princ (strcat "\nSumm=" sumtxt))

became

  ;; display message in the command line:
  (setq sum (* sum 0.9))
  (princ (strcat "\nSumm=" sumtxt))

Dear Sir,

I have inseted your code in original lisp code. But not working with 0.9 multification factor.
(defun C:9M (/ cpent elist en ip newtxt pt ss sum sumtxt txt)
(princ "\n\t\t>>> Select text to get summ >>>")
(if
;;select texts/mtexts on screen :
(setq ss (ssget '((0 . "*TEXT"))))
;; if selected then :
(progn
;; store the first text entity for using 'em further :
(setq cpent (ssname ss 0))
;; set initial sum to zero :
(setq sum 0.)
;; loop trough selected texts/mtexts :
(while
;; get the first text in selection :
(setq en (ssname ss 0))
;; get entity list of them :
(setq elist (entget en))
;; get the textstring by key 1 from entity list :
(setq txt (cdr (assoc 1 elist)))
;; create output string :
(setq sumtxt
;; concatenate strings :
(strcat
;; convert digits to string :
(rtos
;; add to summ the digital value of text :
(setq sum (+ (atof txt) sum))
;; 2 is for metric units (3 for engineering) :
2
;; set precision by current :
(getvar "dimdec")))
)
;; delete entity from selection set :
(ssdel en ss)
)
;; display message in the command line:
(setq sum (* sum 0.9))
(princ (strcat "\nSumm=" sumtxt))
(setq pt (getpoint "\nSpecify the new text location: "))
;; get the insertion point of stored entity :
(setq ip (cdr (assoc 10 (entget cpent))))
;; copy text entity to the new destination point :
(command "_copy" cpent "" ip pt)
;; get the last created entity :
(setq newtxt (entlast))
;; get entity list of them :
(setq elist (entget newtxt))
;; modify entity list with new text string :
(entmod (subst (cons 1 sumtxt)(assoc 1 elist) elist))
;; update changes :
(entupd newtxt)
)
)
(princ)
)
(princ "\nStart command with STX...")
(princ)

[Bruno.Valsecchi]

Sorry for my mistake, I have not tested my answer.
Is must be:
(setq sumtxt (rtos (* sum 0.9) 2 (getvar "DIMDEC)))

[brahmanandam.thadikonda762224]

Thank you Sir