(XD::Text:SplitBySpace) 按原位置分解字符串，清除空格

newer

1. ;|
   
2. 按原位置分解文字实体，清除空格
   
3. 参数 ：  ent -- TEXT实体
   
4. 返回值： 选择集 or nil
   
5. |;
   
6. (defun XD::Text:SplitBySpace (ent / ang basept box ent2 n nrm pt ss str strl)
   
7.   (if (and
   
8.         (setq str (xdrx_getpropertyvalue ent "textstring"))
   
9.         (xdrx_string_regexps "[\\s\\u3000]" str)
   
10.         (setq str (xdrx_string_regexpr "[\\s\\u3000]+$" str ""))
    
11.         (setq strl (xdrx_string_regexps "([\\s\\u3000]+)|[^\\s\\u3000]+" str))
    
12.       )
    
13.     (progn
    
14.       (xdrx_begin)
    
15.       (xdrx_setmark)
    
16.       (setq pt (xdrx_getpropertyvalue ent "position")
    
17.             basept pt
    
18.             nrm (xdrx_getpropertyvalue ent "normal")
    
19.             ang (xdrx_getpropertyvalue ent "rotation")
    
20.       )
    
21.       (foreach n strl
    
22.         (setq ss (xdrx_entity_copy ent)
    
23.               ent2 (entlast)
    
24.         )
    
25.         (xdrx_setpropertyvalue ent2 "textstring" n "rotation" 0.0 "position"
    
26.                                pt
    
27.         )
    
28.         (setq box (xdrx_entity_box ent2)
    
29.               pt (mapcar
    
30.                    '+
    
31.                    pt
    
32.                    (mapcar
    
33.                      '-
    
34.                      (cadr box)
    
35.                      (car box)
    
36.                    )
    
37.                  )
    
38.         )
    
39.         (if (xdrx_string_regexps "[\\s\\u3000]" n)
    
40.           (entdel ent2)
    
41.           (xdrx_entity_rotate ent2 ang basept nrm)
    
42.         )
    
43.       )
    
44.       (entdel ent)
    
45.       (xdrx_end)
    
46.       (xdrx_getss)
    
47.     )
    
48.   )
    
49. )

;|<br /> 按原位置分解文字实体，清除空格<br /> 参数 ：  ent -- TEXT实体<br /> 返回值： 选择集 or nil<br /> |;<br /> (defun XD::Text:SplitBySpace (ent / ang basept box ent2 n nrm pt ss str strl)<br />   (if (and<br />         (setq str (xdrx_getpropertyvalue ent "textstring"))<br />         (xdrx_string_regexps "[\\s\\u3000]" str)<br />         (setq str (xdrx_string_regexpr "[\\s\\u3000]+$" str ""))<br />         (setq strl (xdrx_string_regexps "([\\s\\u3000]+)|[^\\s\\u3000]+" str))<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 (xdrx_string_regexps "[\\s\\u3000]" n)<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 /> )