[求助]如何将字符串中的数字和其它字符分开

yuun

比如str="ABC1234DEF(5678)g(y)"

分解成表lst='("ABC" "1234" "DEF(" "5678" ")g(y)")

yuun

(DEFUN c:tt()
   (setq str "ABC1234DEF(5678)g(y)")
  (setq n (strlen str) )
  (setq nn 1)
  (setq str1 "")
  (setq num1 "")
  (repeat n
 
   (setq ss (substr str nn 1))
    (setq ass (ascii ss))
   (if (and (<= ass 57) (>= ass 48))
     (setq num1 (strcat num1 ss))
     (setq str1 (strcat str1 ss))
     )
    (setq nn (+ 1 nn))
    )
    ;
)

逐步逼近