如何批量查到单行文字 并将其中的数字统一加值

avijjā

各位大神 我是一个CAD开发初学者  有个问题想请问一下  因为我传不了图片  就用文字简单描述一下  
加入我的CAD图里有一下三个单行文字：X=2300 X=4500 X=7900
我想批量的查找到这几个单行文字（图里可能还有其他带X的单行文字 ）  并将这几个单行文字中的数字统一加上1000 变为
X=3300 X=5500 X=8900
功能感觉不复杂  但是作为一个入门者 还是摸不着思路 请大神指教

newer

avijjā 发表于 2016-10-22 21:12

把getint改成getstring就行了
代码修改了，下面代码把变的文字改成红色

你想改别的颜色，修改 vla-put-color 后面的颜色号

(defun c:tt ()
  (if (and
        (/= "" (setq str (getstring "\n输入数字前缀<退出>:")))
        (/= "" (setq val (getstring "\n增加多少？")))
        (xd::string:regexps "^\\d+$" val "")
        (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" str "*")))))
      )
    (progn
      (setq i -1)
      (repeat (sslength ss)
        (setq e (ssname ss (setq i (1+ i)))
              ed (entget e)
              txt (cdr (assoc 1 ed))
        )
        (if (setq cur (xd::string:regexps (strcat str "\\d+") txt "")) ; 正?
                                       ; 虮泶锸阶址?ヅ洳檎倚稳纾?Y=\\d+"
                                       ; 字符串Y=后加整数
          (progn
            (setq cur (car cur)               ; 匹配到的前缀和数字
                  num (substr cur (1+ (strlen str))) ; 数字字符串
                  txt (vl-string-subst (strcat str (itoa (+ (atoi num)
                                                            (atoi val)
                                                         )
                                                   )
                                       ) cur txt
                      )                       ; 递增后的字符串
            )
            (setq ed (subst
                       (cons 1 txt)
                       (assoc 1 ed)
                       ed
                     )
            )
            (entmod ed)
            (vla-put-color (vlax-ename->vla-object e) 1)
          )
        )
      )
    )
  )
  (princ)
)

Lisphk

                               
登录/注册后可看大图

http://bbs.xdcad.net/thread-704575-1-1.html

forb0217

难道CAD中还可以编程？

newer

你这个几个文字是整体，还是在一个文字的的一部分？

用 (SSGET '((0 . "TEXT")(1 . "*X=*")))  选择带 X=xxxxx的文字，然后循环处理每个单行。

newer

试下

正则表达式字符串匹配函数 xd::string:regexps 见开源函数库 http://bbs.xdcad.net/thread-669166-1-1.html

去了解下正则表达式，xd::string:regexps 这个函数是个万能的字符串查询函数，可以任意构造出你需要的查询

(defun c:tt ()
  (if (and
        (/= "" (setq str (getstring "\n输入数字前缀<退出>:")))
        (setq val (getint "\n增加多少？"))
        (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" str "*")))))
      )
    (progn
      (setq i -1)
      (repeat (sslength ss)
        (setq e (ssname ss (setq i (1+ i)))
              ed (entget e)
              txt (cdr (assoc 1 ed))
        )
        (if (setq cur (xd::string:regexps (strcat str "\\d+") txt "")) ;;正则表达式字符匹配查找形如："Y=\\d+" 字符串Y=后加整数
          (progn
            (setq cur (car cur);;匹配到的前缀和数字
                  num (substr cur (1+ (strlen str)));;数字字符串
                  txt (vl-string-subst (strcat str (itoa (+ (atoi num) val))) cur txt) ;;递增后的字符串
            )
            (setq ed (subst (cons 1 txt) (assoc 1 ed) ed))
            (entmod ed)
          )
        )
      )
    )
  )
  (princ)
)

avijjā

newer 发表于 2016-10-22 14:09

这是我把源代码复制下来 做成lsp执行后的结果  最后提示错误 没有执行成功  这是什么原因啊
----------------------------------------------------------------------------------------------------------------
命令: TT
输入数字前缀<退出>:X
增加多少？100
选择对象: 指定对角点: 找到 1 个
选择对象:  ; 错误: no function definition: XD::STRING:REGEXPS
----------------------------------------------------------------------------------------------------------------

newer

avijjā 发表于 2016-10-22 16:19

上面的帖子，我给你了 xd::string:regexps 函数的链接了，你去帖子里面拷贝回去。

avijjā

具体怎么弄啊  指点一下吧

newer

avijjā 发表于 2016-10-22 17:10

你不是 开发 的 初学者吗？

加载代码都不会吗？

上面你不是贴出来运行提示错误吗，代码你是怎么加载的？

你去我上面帖子里面给你的连接，点击进去，  把帖子里面的 函数 代码  拷贝回去， 和上面写的测试代码拷贝到一个文件里面保存。 然后加载。

如果还不会， 那你去下载  XDRX API，  执行安装程序，安装后， 启动CAD，加载上面的代码。

我上面告诉你的函数 XD::STRING:REGEXPS 本来是VLISP的，不需要XDRX API的。

avijjā

newer 发表于 2016-10-22 18:02

嘿嘿  可以了  但是只能增加-32768到32767之间的数  如果想增加更大的数该怎么办呢   还有我想把加过数字的单行文字变成另一种颜色  该怎么实现啊？

avijjā

newer 发表于 2016-10-22 21:50

两个字“完美~~~~” 哈哈  版主 咱们有专门的沟通用的群吗 微信或者QQ 昨天关注公众号 说公众号暂时无法使用

newer

avijjā 发表于 2016-10-23 11:32

完美了，你到那个解决问题的帖子，点右下角，设为 最佳答案， 把这个帖子结了吧。别只悬赏不付人家D豆。
有问题就贴论坛吧。

avijjā

newer 发表于 2016-10-23 13:36

不好意思 刚来 哈哈