明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 373|回复: 22

[提问] 求把一串文字中的空格替换为逗号,把乘号x替换为*

[复制链接]
发表于 2018-7-9 09:29 | 显示全部楼层 |阅读模式
如有字符      你好 我好x他好  替换后为  你好,我好*他好

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-7-9 10:45 | 显示全部楼层
本帖最后由 bluefcc1 于 2018-7-9 11:31 编辑

(defun c:tt ( / e22 e2 sn1 sn2 sn3 i)
    (setq e22nil)   
    (while(or (= e22 nil) (/= (cdr (assoc '0 (entget (car e22)))) "TEXT"))
              (setq e22 (entsel "\n点选文字:"))
    )
      (setqe2 (entget (car e22)))
      (setqsn1 (cdr (assoc '1  e2)))
      (alert(strcat "\n文字替换前:"sn1))
      (setq i1)
      (setqsn3 "")
      (repeat(strlen sn1)
              (cond
                  ((= (substr sn1 i 1) " ")  (setq sn2 ","))
                  ((= (substr sn1 i 1) "x") (setq sn2 "*"))
                  (t (setq sn2 (substr sn1 i 1)))
             );end cond
        
         (setq sn3 (strcat sn3 sn2))
         (setq i (+ i 1))
      )
      (entmod(setq e2 (subst (cons 1 sn3) (assoc 1 e2) e2))) ;直接更新
      (alert (strcat "\n文字替换后:"sn3))
)

 楼主| 发表于 2018-7-9 11:35 | 显示全部楼层
bluefcc1 发表于 2018-7-9 10:45
(defun c:tt ( / e22 e2 sn1 sn2 sn3 i)    (setq e22nil)       (while(or (= e22 nil) (/= (cdr (assoc ' ...

大哥能不能把最后形成的文字弄到粘贴板,以便我可以复制
 楼主| 发表于 2018-7-9 11:37 | 显示全部楼层
本帖最后由 664571221 于 2018-7-9 11:38 编辑
bluefcc1 发表于 2018-7-9 10:45
(defun c:tt ( / e22 e2 sn1 sn2 sn3 i)    (setq e22nil)       (while(or (= e22 nil) (/= (cdr (assoc ' ...


大哥怎么用不起来 ,是不是哪里错了,直接 警告! 程序已经退出!
发表于 2018-7-9 11:46 | 显示全部楼层
本帖最后由 bluefcc1 于 2018-7-9 11:50 编辑

((= (substr sn1 i 1)"x") (setq sn2 "*"))
"x"是小写的X,不是╳。
我这边CAD无法识别
我把图面里的文字 改成 "我好 你好x他好"


 楼主| 发表于 2018-7-9 13:11 | 显示全部楼层
本帖最后由 664571221 于 2018-7-9 13:12 编辑
bluefcc1 发表于 2018-7-9 11:46
((= (substr sn1 i 1)"x") (setq sn2 "*"))"x"是小写的X,不是╳。╳ 我这边CAD无法识别我把图面里的文 ...


主要是程序拖入cad就提示警告 程序已退出 不能用 是哪里错了
 楼主| 发表于 2018-7-9 13:13 | 显示全部楼层
bluefcc1 发表于 2018-7-9 11:46
((= (substr sn1 i 1)"x") (setq sn2 "*"))"x"是小写的X,不是╳。╳ 我这边CAD无法识别我把图面里的文 ...

是程序本身哪里错了吗
发表于 2018-7-9 14:09 | 显示全部楼层
測試沒問題。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-7-9 14:17 | 显示全部楼层
本帖最后由 bluefcc1 于 2018-7-9 14:19 编辑


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2018-7-9 14:32 | 显示全部楼层

可以了大侠,两个有啥不同呀,非常感谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2018-7-19 17:47 , Processed in 0.230729 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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