（XD::Text:SplitBy）删除指定的字符串（支持正则表达式）而文字实体位置不变。

newer

1. ;|
   
2. 删除指定的字符串（支持正则表达式）而文字实体位置不变。
   
3. 参数： ent --- 文字(TEXT)实体名
   
4.        match-- 匹配字符串，支持正则表达式，如： \s 空白字符
   
5.        mode -- 操作模式， T， 删除  NIL 删除其他
   
6. 返回值：选择集 or nil
   
7. |;
   
8. (defun XD::Text:SplitBy (ent match mode / ang basept box ent2 n nrm pt ss str strl tf)
   
9.   (if (and
   
10.         (setq str (xdrx_getpropertyvalue ent "textstring"))
    
11.         (xdrx_string_regexps (strcat "[" match "]+") str)
    
12.         (setq str (xdrx_string_regexpr "[\\s\\u3000]+$" str ""))
    
13.         (setq strl (xdrx_string_regexps (strcat "[" match "]+|[^" match "]+")
    
14.                                         str
    
15.                    )
    
16.         )
    
17.       )
    
18.     (progn
    
19.       (xdrx_begin)
    
20.       (xdrx_setmark)
    
21.       (setq pt (xdrx_getpropertyvalue ent "position")
    
22.             basept pt
    
23.             nrm (xdrx_getpropertyvalue ent "normal")
    
24.             ang (xdrx_getpropertyvalue ent "rotation")
    
25.       )
    
26.       (foreach n strl
    
27.         (setq ss (xdrx_entity_copy ent)
    
28.               ent2 (entlast)
    
29.         )
    
30.         (xdrx_setpropertyvalue ent2 "textstring" n "rotation" 0.0 "position"
    
31.                                pt
    
32.         )
    
33.         (setq box (xdrx_entity_box ent2)
    
34.               pt (mapcar
    
35.                    '+
    
36.                    pt
    
37.                    (mapcar
    
38.                      '-
    
39.                      (cadr box)
    
40.                      (car box)
    
41.                    )
    
42.                  )
    
43.         )
    
44.         (if mode
    
45.           (setq tf (xdrx_string_regexps (strcat "[" match "]") n))
    
46.           (setq tf (not (xdrx_string_regexps (strcat "[" match "]") n)))
    
47.         )
    
48.         (if tf
    
49.           (entdel ent2)
    
50.           (xdrx_entity_rotate ent2 ang basept nrm)
    
51.         )
    
52.       )
    
53.       (entdel ent)
    
54.       (xdrx_end)
    
55.       (xdrx_getss)
    
56.     )
    
57.   )
    
58. )
    
59. 
    

;|<br /> 删除指定的字符串（支持正则表达式）而文字实体位置不变。<br /> 参数： ent --- 文字(TEXT)实体名<br />        match-- 匹配字符串，支持正则表达式，如： \s 空白字符<br />        mode -- 操作模式， T， 删除  NIL 删除其他<br /> 返回值：选择集 or nil<br /> |;<br /> (defun XD::Text:SplitBy (ent match mode / ang basept box ent2 n nrm pt ss str strl tf)<br />   (if (and<br />         (setq str (xdrx_getpropertyvalue ent "textstring"))<br />         (xdrx_string_regexps (strcat "[" match "]+") str)<br />         (setq str (xdrx_string_regexpr "[\\s\\u3000]+$" str ""))<br />         (setq strl (xdrx_string_regexps (strcat "[" match "]+|[^" match "]+")<br />                                         str<br />                    )<br />         )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setmark)<br />       (setq pt (xdrx_getpropertyvalue ent "position")<br />             basept pt<br />             nrm (xdrx_getpropertyvalue ent "normal")<br />             ang (xdrx_getpropertyvalue ent "rotation")<br />       )<br />       (foreach n strl<br />         (setq ss (xdrx_entity_copy ent)<br />               ent2 (entlast)<br />         )<br />         (xdrx_setpropertyvalue ent2 "textstring" n "rotation" 0.0 "position"<br />                                pt<br />         )<br />         (setq box (xdrx_entity_box ent2)<br />               pt (mapcar<br />                    '+<br />                    pt<br />                    (mapcar<br />                      '-<br />                      (cadr box)<br />                      (car box)<br />                    )<br />                  )<br />         )<br />         (if mode<br />           (setq tf (xdrx_string_regexps (strcat "[" match "]") n))<br />           (setq tf (not (xdrx_string_regexps (strcat "[" match "]") n)))<br />         )<br />         (if tf<br />           (entdel ent2)<br />           (xdrx_entity_rotate ent2 ang basept nrm)<br />         )<br />       )<br />       (entdel ent)<br />       (xdrx_end)<br />       (xdrx_getss)<br />     )<br />   )<br /> )<br /> <br />

测试命令：

1. (defun c:tt ()
   
2.   (if (and
   
3.         (/= (setq match (getstring "\n输入要删除的字符<退出>:")))
   
4.         (progn
   
5.           (prompt "\n选取要处理的字符串<退出>:")
   
6.           t
   
7.         )
   
8.         (setq ss (ssget '((0 . "TEXT"))))
   
9.       )
   
10.     (progn
    
11.       (if (= 1 (xdrx_yesorno "删除" 1))
    
12.          (setq mode t)
    
13.          (setq mode nil)
    
14.       )
    
15.       (mapcar
    
16.         '(lambda (x)
    
17.            (xd::text:splitby x match mode)
    
18.          )
    
19.         (xdrx_pickset->ents ss)
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    

(defun c:tt ()<br />   (if (and<br />         (/= (setq match (getstring "\n输入要删除的字符<退出>:")))<br />         (progn<br />           (prompt "\n选取要处理的字符串<退出>:")<br />           t<br />         )<br />         (setq ss (ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (if (= 1 (xdrx_yesorno "删除" 1))<br />          (setq mode t)<br />          (setq mode nil)<br />       )<br />       (mapcar<br />         '(lambda (x)<br />            (xd::text:splitby x match mode)<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

st788796

如果给attrib实体好像也能运行到某处再出错

newer

st788796 发表于 2014-12-8 21:53
如果给attrib实体好像也能运行到某处再出错

ATTRIB应该是不行，因为分解出来的是在模型空间，和块属性定义之间没有链接关系，这个主要是操作TEXT的，属性谁也不会那么无聊要经常这样删除。
这个函数主要是对文本按行处理的基础函数。把一个中间带空格的文字，中间的空格处是比如平方数字那样的，分解后在都正确连接起来时候用。

dyjwyqz5221

经过测试，该函数有问题。