(defun c:INV ( / parseString adjustString isPositionNumber getStringNumber
ActDoc num OldStr AttDefOpt lst str pos plcs ents loc )
; Increase numeric values of a text string
; if an attribute, or definition, is selected, you are prompted to
; change either the Tag or the Text value, only once per run
; if more than one numeric value is found, user is prompted to
; enter the location to change with an option for all ( right now
; there is only an option or change one location or all locations )
; version 1.2
; the number of decimal places will be whichever is greater, the user
; supplied amount or the existing text string. ie. user enters 10.00
; text string is 5, the new value will be 15.00

(vl-load-com)

(defun parseString ( aStr / len pos isNum str tStr lst )
; returns a list of the supplied string, where each entry
; is separated by being either only alphas or numbers