中间带空格的一个文字，如何去掉空格变成3个单独的文字，位置位置保持不变？

Lisphk

中间带空格的一个文字，如何去掉空格变成3个单独的文字，位置位置保持不变？

newer

看图，红线是文字a最小包围盒,xdrx_text_box，也就是LISP函数textbox求得，黄线是文字a实体包围盒，xdrx_entity_box求得，品红线是文字b包围盒，xdrx_entity_box求得，青色线是文字ab包围盒，xdrx_entity_box求得。

可见，第二个文字B的实体包围盒的左下点是上一个文字实体包围盒的右下点。

Lisphk

newer 发表于 2014-12-7 15:51
看图，红线是文字a最小包围盒,xdrx_text_box，也就是LISP函数textbox求得，黄线是文字a实体包围盒，xdrx_en ...

谢谢斑竹，那问题来了，有什么代码求出一个文字有几个空格，几个非空格和他们的位置呢？

st788796

a 和 g 在一起时如何

newer

st788796 发表于 2014-12-7 16:07
a 和 g 在一起时如何

实体包围盒第二三点确定的线是第二个文字所在的线，文字高度不影响。

newer

st788796 发表于 2014-12-7 16:07
a 和 g 在一起时如何

ag重合时候，移动g是按文字角度方向，移动a包围盒右下-左下点的向量距离。

Lisphk

st788796 发表于 2014-12-7 16:07
a 和 g 在一起时如何

st大师来了，能帮看看上面的问题，比如文字：“   abc  de g " ==>("   " "abc" "  " "g" " ") 给写个代码吗？

st788796

Lisphk 发表于 2014-12-7 16:18
st大师来了，能帮看看上面的问题，比如文字：“   abc  de g " ==>("   " "abc" "  " "g" " ") 给写个代 ...

_$ (xdrx_string_regexps "[ ]+|[^ ]+" "    a  a b dddd ")
("    " "a" "  " "a" " " "b" " " "dddd" " ")
_$ (xdrx_string_regexps "[ ]+|[^ ]+" "a  a b dddd ")
("a" "  " "a" " " "b" " " "dddd" " ")
_$ (xdrx_string_regexps "[ ]+|[^ ]+" "   abc  de g ")
("   " "abc" "  " "de" " " "g" " ")
_$

st788796

这个里面应该包含这个算法

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

Lisphk

st788796 发表于 2014-12-7 16:46
_$ (xdrx_string_regexps "[ ]+|[^ ]+" "    a  a b dddd ")
("    " "a" "  " "a" " " "b" " " "dddd"  ...

哇，正则，能支持中文空格吗？就是所有空白的字符了。

st788796

Lisphk 发表于 2014-12-7 16:51
哇，正则，能支持中文空格吗？就是所有空白的字符了。

_$ (xdrx_string_regexps "[ ]+|[^ \\u3000]+|[\\u3000]+" "   abc　  %%cde g %%Udd　　　　")
("   " "abc" "　" "  " "%%cde" " " "g" " " "%%Udd" "　　　　")
_$

Lisphk

st788796 发表于 2014-12-7 17:16
_$ (xdrx_string_regexps "[ ]+|[^ \\u3000]+|[\\u3000]+" "   abc　  %%cde g %%Udd　　　　")
("   "  ...

%%cde g %%Udd 这个代表什么？


|[^ \\u3000]+|[\\u3000]+ 这个又是什么？

iLisp

u3000中文全角空格
%%u下划线开
%%c直径符号

匹配意义

西文空格+ | [非西文或中文空格]+ | 中文空格+

| 是或者

newer

谢谢ST，写了个函数，清除中文空格，西文空格，文字断开后位置不变

1. (defun XD::Text:SplitBySpace (ent / ang basept box ent2 n nrm pt ss str strl)
   
2.   (if (and
   
3.         (setq str (xdrx_getpropertyvalue ent "textstring"))
   
4.         (xdrx_string_regexps "[\\s\\u3000]" str)
   
5.         (setq str (xdrx_string_regexpr "[\\s\\u3000]+$" str ""))
   
6.         (setq strl (xdrx_string_regexps "([\\s\\u3000]+)|[^\\s\\u3000]+" str))
   
7.       )
   
8.     (progn
   
9.       (xdrx_begin)
   
10.       (xdrx_setmark)
    
11.       (setq pt (xdrx_getpropertyvalue ent "position")
    
12.             basept pt
    
13.             nrm (xdrx_getpropertyvalue ent "normal")
    
14.             ang (xdrx_getpropertyvalue ent "rotation")
    
15.       )
    
16.       (foreach n strl
    
17.         (setq ss (xdrx_entity_copy ent)
    
18.               ent2 (entlast)
    
19.         )
    
20.         (xdrx_setpropertyvalue ent2 "textstring" n "rotation" 0.0 "position"
    
21.                                pt
    
22.         )
    
23.         (setq box (xdrx_entity_box ent2)
    
24.               pt (mapcar
    
25.                    '+
    
26.                    pt
    
27.                    (mapcar
    
28.                      '-
    
29.                      (cadr box)
    
30.                      (car box)
    
31.                    )
    
32.                  )
    
33.         )
    
34.         (if (xdrx_string_regexps "[\\s\\u3000]" n)
    
35.           (entdel ent2)
    
36.           (xdrx_entity_rotate ent2 ang basept nrm)
    
37.         )
    
38.       )
    
39.       (entdel ent)
    
40.       (xdrx_end)
    
41.       (xdrx_getss)
    
42.     )
    
43.   )
    
44. )

(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 /> )

ll_j

自己计算文本包围盒的确麻烦，我曾经在明经发过一个使用acet函数的去空格程序：http://bbs.mjtd.com/thread-99236-1-1.html。