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

664571221

求提取文字，比如cad有文字1 2 3 4，拾取1 2 3 4，用-连接，两边加括号，最后生成的文字为(1-2-3-4).并复制到粘贴板

664571221

Andyhon 发表于 2018-7-18 21:30
AutoCAD 回应的讯息是什么!?

(defun C:tt (a)
   (cond
     ((wcmatch a "* *")
      (tt (vl-string-subst "-" " " a))
     )
     (T a)
   )
)
(setq str "1 2 3 4")
(strcat "(" (tt str) ")" )
是这个程序吗，开始提示未知命令，我改了下加了个C:,提示错误参数太少，是不是程序不完整1234只是举例，比如可以是4567 8910

Andyhon

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

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

...复制到粘贴板...
有老帖...

wlt179

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

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

664571221

Andyhon 发表于 2018-7-18 20:05
(defun tt (a)
   (cond
     ((wcmatch a "* *")

呵呵是有了 谢谢大神

664571221

Andyhon 发表于 2018-7-18 20:05
(defun tt (a)
   (cond
     ((wcmatch a "* *")

怎么运行不起来呀

Andyhon

AutoCAD 回应的讯息是什么!?

Andyhon

变量 str 可以是 1234
也可以是4567 8910

(defun C:tt (a) ...)
别加 C:
===>
(defun tt (a) ...)

664571221

Andyhon 发表于 2018-7-18 21:53
变量 str 可以是 1234
也可以是4567 8910

如果是这样好像是提示未知命令

Andyhon

Command: (setq str "1 2 3 4")
"1 2 3 4"

Command: (tt str)
"1-2-3-4"
Command: (strcat "(" (tt str) ")" )
"(1-2-3-4)"

evayleung

楼主是有文字“1 2 3 4”还是有4个文字，分别是“1”、 “2”、 “3“ 、”4“？