求提取文字，比如cad有文字1 2 3 4，拾取1 2 3 4，用-连接，两边加括号

664571221

evayleung 发表于 2018-7-19 05:38
楼主是有文字“1 2 3 4”还是有4个文字，分别是“1”、 “2”、 “3“ 、”4“？

四个，我是举例 比如 也可以是 A B C D

lifuq1979

(defun tt (a)
   (cond
     ((wcmatch a "* *")
      (tt (vl-string-subst "-" " " a))
     )
     (T a)
   )
)
是子函数

664571221

lifuq1979 发表于 2018-7-19 22:52
(defun tt (a)
   (cond
     ((wcmatch a "* *")

可以弄个完整的函数吗

852456

看帖回帖是美德

wdjy808

看帖回帖是美德

wlt179

(defun tt (a)
   (cond
     ((wcmatch a "* *")
      (tt (vl-string-subst "-" " " a))
     )
     (T a)
   )
)

(setq str "1 2 3 4")
(strcat "(" (tt str) ")" )