Topic: Number/Letter incrementation

[V-Man]

Hi fellas.

I need a little expert assistance.

I need this snippet of code to allow letters to be part of the number and have it self increment to the next value. I hope I explained this clearly. Thanks in advance!

Code: [Select]

(if (= start nil)
  (setq start "01001");<-----------------This is where I need to be able to have letters as well i.e. P1001 etc....
)
  (setq startc "")
  (while (not (numberp (distof startc)))
    (setq startc (getstring (strcat "\nStarting number <" start ">: ")))
    (and (= startc "") (setq startc start))
  )
  (setq minlen (strlen startc))
(setq pt curPoint)
       (command ".text" "M" pt "" startc)
(setq nspid startc)
     (setq startc (itoa (1+ (atoi startc))))
     (while (< (strlen startc) minlen) ; prepend zeros
       (setq startc (strcat "0" startc))
     )
  (setq start startc)

[ronjonp]

Use CAB's routine: http://www.theswamp.org/index.php?topic=518.0

[V-Man]

Great, I will check that out. Thanks Ronjonp

[CAB]

Here is the most recent version.
http://www.theswamp.org/index.php?topic=27291.msg330240#msg330240

I will update the thread as soon as I finish the cleanup of this routine.