Adding numbers, ingoring letters

[Robert.Hall]

I have seen several lisp routines that add up numerical text values.
An issue I have is what to do when the numerical value is in the middle of a setence.

For example: Incoming blank weight=12.25 Kg.

Does anyone have a lisp routine that will add up the numeric characters and
ignore the rest of the string???? I have these lines inserted as dtext.

[timothyjturner]

I'm not sure about this but I have an idea...there are several string-handling functions that are useful. This may be way too complicated and there could be an easier solution. The only way I could think to do it would be to do the following:

1. vl-string-position - Use this command to search for the position of characters 0-9 individually. Once you find the position of all these characters. Store the position futhest to the right in a variable and the position furthest to the left in a variable. Disreguard the rest.

2. Use vl-string-left-trim and vl-string-right-trim to remove the number from the string.

3. Do desired calculations

4. Use vl-string-subst to substitute new value for old value into old string.

For the details on how to use these functions, access the help files that come with AutoCAD.

Note: This would only work if the string only contained one number.

[CAB2k]

Here is a little ditty I wrote & may be of use to you.

[Robert.Hall]

That is a great routine, however, I am trying to do some simple addition here so that I do not have to use by Abacus all the time. I want to create a total material usage from adding up the weights of the component parts. Where I am stuck is with having the numbers surrounded by letters.

[CAB2k]

Sorry I should have read your post more closely.
The subroutine used to increment the number may be modified to return the number.
Also there is a routine over at the swamp that will do just what you are looking for.
Search "number from string"

[mathew.worland]

If you know what letters you need to ignore you can use this

(defun FtgToReal (FTG /)
(vl-string-subst "" "'" FTG)
)

I use this to remove the foot mark.

[peter]

try this routine

[T.Willey]

See if this one works for you.

[T.Willey]

Here is the revised version to work when there is a coma in the number.

[Robert.Hall]

Thats is a great routine........what am I suppose to do when it prompts to create a new text object. For some reason I cannot figure that out and I bet it is easy.

I also found using the undo command with this lisp routine will crash AutoCad.