明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2620|回复: 15

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

[复制链接]
发表于 2018-7-18 16:00 | 显示全部楼层 |阅读模式
求提取文字,比如cad有文字1 2 3 4,拾取1 2 3 4,用-连接,两边加括号,最后生成的文字为(1-2-3-4).并复制到粘贴板
 楼主| 发表于 2018-7-18 21:37 | 显示全部楼层
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
发表于 2018-7-18 20:05 | 显示全部楼层
(defun tt (a)
   (cond
     ((wcmatch a "* *")
      (tt (vl-string-subst "-" " " a))
     )
     (T a)
   )
)

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

...复制到粘贴板...
有老帖...
发表于 2019-10-26 12:00 | 显示全部楼层
(defun tt (a)
   (cond
     ((wcmatch a "* *")
      (tt (vl-string-subst "-" " " a))
     )
     (T a)
   )
)

(setq str "1 2 3 4")
(strcat "(" (tt str) ")" )
 楼主| 发表于 2018-7-18 20:42 | 显示全部楼层
Andyhon 发表于 2018-7-18 20:05
(defun tt (a)
   (cond
     ((wcmatch a "* *")

呵呵是有了 谢谢大神
 楼主| 发表于 2018-7-18 21:15 | 显示全部楼层
Andyhon 发表于 2018-7-18 20:05
(defun tt (a)
   (cond
     ((wcmatch a "* *")

怎么运行不起来呀
发表于 2018-7-18 21:30 | 显示全部楼层
AutoCAD 回应的讯息是什么!?
发表于 2018-7-18 21:53 | 显示全部楼层
变量 str 可以是 1234
也可以是4567 8910

(defun C:tt (a) ...)
别加 C:
===>
(defun tt (a) ...)
 楼主| 发表于 2018-7-18 22:29 | 显示全部楼层
Andyhon 发表于 2018-7-18 21:53
变量 str 可以是 1234
也可以是4567 8910

如果是这样好像是提示未知命令
发表于 2018-7-18 22:42 | 显示全部楼层
本帖最后由 Andyhon 于 2018-7-18 22:43 编辑

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)"

发表于 2018-7-19 05:38 | 显示全部楼层
楼主是有文字“1 2 3 4”还是有4个文字,分别是“1”、 “2”、 “3“ 、”4“?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-23 14:36 , Processed in 0.356464 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表