附图中，钢筋符号（**钢）属汉字型，字符串中有其他汉字，如何用正则替换

dyjwyqz5221

关键是找不到这个钢筋符号的代码？用正则法则进行钢筋符号的替换。因字符串中有汉字，汉字的位置不确定，因此不能将汉字替换为钢筋符号%%132。
请高手予以指点。

marting

你想做什么？你帖子看不出你想要替换什么

dyjwyqz5221

数字之间那个符号就是钢筋符号，替换钢筋符号成为%%132。没有钢筋符号%%132，就无法进行纵向钢筋筛选。

marting

dyjwyqz5221 发表于 2018-12-25 16:54
数字之间那个符号就是钢筋符号，替换钢筋符号成为%%132。没有钢筋符号%%132，就无法进行纵向钢筋筛选。

打开你图，看不到那个文字是什么，你那也看不到？ 不能截取个你图形屏幕的文字的图片？

那就直接替换
选择对象: ((-1 . <图元名: 1a6a93cdd40>) (0 . "TEXT") (330 . <图元名: 1a6ae8ae020>) (5 . "3F4F4") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "z-计算配筋") (100 . "AcDbText") (10 -543731.0 -246146.0 0.0) (40 . 300.0) (1 . "钢筋符号：2?18+4?14+8?12角筋") (50 . 0.0) (41 . 0.7) (51 . 0.0) (7 . "BW_Rein") (71 . 0) (72 . 1) (11 -541625.0 -245996.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2))


命令: (setq a "钢筋符号：2?18+4?14+8?12角筋")
"钢筋符号：2?18+4?14+8?12角筋"

命令: (xdrx_string_regexpr "?" a "%%132")
"钢筋符号：2%%13218+4%%13214+8%%13212角筋"

dyjwyqz5221

我也是这样替换的，但这种替换在cad里面可以，但是在lisp程序里面不行，我测试过了。
文字内容就是看不到什么，是空白的。
用(xd::string:regexpr "0" (xdrx_text_string (car(entsel))) "x" "")语句可以查出来。就是截图那样。

marting

dyjwyqz5221 发表于 2018-12-25 17:10
我也是这样替换的，但这种替换在cad里面可以，但是在lisp程序里面不行，我测试过了。
文字内容就是看不到 ...

你自己在你那，图上，都看不到这个字吗？ 是“？” ？

dyjwyqz5221

marting 发表于 2018-12-25 17:14
你自己在你那，图上，都看不到这个字吗？ 是“？” ？

是“？”，与你看到的一样。在天正里面看到的是3级钢符号。

marting

dyjwyqz5221 发表于 2018-12-25 17:21
是“？”，与你看到的一样

直接搜索提出来，然后替换

命令: !b
"钢筋符号：2?18+4?14+8?12角筋"

命令: (xdrx_string_regexps "[0-9]+.*?[0-9]+" b)
("2?18" "4?14" "8?12")


命令: (xdrx_string_regexps "[0-9]+.*?[0-9]+" a)
("2?18" "4?14" "8?12")

命令: (setq c (xdrx_string_regexps "[0-9]+.*?[0-9]+" a))
("2?18" "4?14" "8?12")

命令: (setq d (car c))
"2?18"

命令: (setq e (xdrx_string_regexps "[^0-9]+" d))
("?")

命令: (setq f (car e))
"?"

命令: (xdrx_string_regexpr f a "%%132")
"钢筋符号：2%%13218+4%%13214+8%%13212角筋"

marting

dyjwyqz5221 发表于 2018-12-25 17:21
是“？”，与你看到的一样。在天正里面看到的是3级钢符号。

直接换

命令: !a
"钢筋符号：2?18+4?14+8?12角筋"

命令: (xdrx_string_regexpr "([0-9]+).*?([0-9]+)" a "$1%%132$2")
"钢筋符号：2%%13218+4%%13214+8%%13212角筋"

marting

dyjwyqz5221 发表于 2018-12-25 17:21
是“？”，与你看到的一样。在天正里面看到的是3级钢符号。

没%%132这个SHX，用*替换

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel)))
   
3.     (progn (setq txt (xdrx_getpropertyvalue e "textstring")
   
4.                  txt (xdrx_string_regexpr "([0-9]+).*?([0-9]+)" a "$1*$2")
   
5.            )
   
6.            (xdrx_setpropertyvalue e "textstring" txt)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br />   (if (setq e (car (entsel)))<br />     (progn (setq txt (xdrx_getpropertyvalue e "textstring")<br />                  txt (xdrx_string_regexpr "([0-9]+).*?([0-9]+)" a "$1*$2")<br />            )<br />            (xdrx_setpropertyvalue e "textstring" txt)<br />     )<br />   )<br />   (princ)<br /> )<br />

dyjwyqz5221

感谢各位的帮助，不过图纸里面的文字太多，不方便筛选。
我自己找出来了。
分享给大家：
(xd::string:regexpr "[\\ue532]" (xdrx_text_string (car(entsel))) "%%132" "")
从http://tool.chinaz.com/tools/unicode.aspx上查到的，中文转unicode