Topic: Get only numbers from string

[GDF]

(rtos ARCH#SIZE 2 0) = "2'-10\""

How do I strip this down to be: 210

[MP]

(vl-list->string (vl-remove-if-not '(lambda (x)(< 47 x 58)) (vl-string->list (rtos ARCH#SIZE 3 0))))

And in before Lee.

[GDF]

Thank you Michael

[GDF]

This is how I'm using it, to tag old doors that have data attached. The new client calls out door sizes in a different format. Still working on cleaning up the code.

Code: [Select]

(defun c:DRTAG  () 
  ;;(rtos ARCH#SIZE 2 0) = "2'-10\""
  ;;(vl-list->string (vl-remove-if-not '(lambda (x)(< 47 x 58)) (vl-string->list (rtos ARCH#SIZE 3 0))))

  (if (= ARCH#BLKX nil)(ARCH:BLKNAM "SYMDR" (strcat ARCH#CUSF "SYMS/")))
  (setq scf (getvar "dimscale"))
  (ARCH:CUSTOM_LAYERS-SYMB-DOOR)   
  (setvar "cmdecho" 0)

  (setq objx (entget (car (entsel "\n* Select Door to Tag *"))))
  (setq xdli (cdr (assoc 2 (entget (cdar objx) '("DRWDWLVR")))))
  (setq xszx (substr xdli 5 (- (strlen xdli) 8)))
  ;;(setq size (strcat (rtos ARCH#SIZE 2 0) "x80"))
  (setq insx (cdr (assoc 10 objx)))

  (setq name (vl-list->string (vl-remove-if-not '(lambda (x)(< 47 x 58)) (vl-string->list (rtos ARCH#SIZE 3 0)))))
  (setq size (strcat name "x80"))

  (command
    "insert"
    (strcat ARCH#CUSF "SYMS/" "SYMDR")
    "ps"
    SCF
    insx
    SCF
    ""
    ""
    size
    "")
(princ))


[Lee Mac]

And in before Lee.