（完成）[编程申请]：去除文字实体内部的空格...

marting

晓东，EACHY谢谢你们前几天写的程序，同事们用了都说很方便。

1、我们以前画的图中，为了让英文和汉字不同高，很多图都把汉字中间留有空格，然后在中间空格处另外写上英文字，现在如果我要把这些字用程序连接起来，或者排版的时候，就出现问题了，有空格的文字是一个实体，这样和英文连接就错误了，看下面图，希望给大家写个能把一个有空格的文字的实体把空格去掉，变成两个文字，并且屏幕上显示的位置不要变化

2、另外希望把文字处理进一步完善，再提供比如：文字拆成单个字、修改多行TEXT文字的行距、多行TEXT文字（每行里面可能由多个文字组成）按照原来顺序拷贝到剪切板、修改已有的文字字型（做成刷子最好）、宽度、角度、缩放、文字下部对齐（用在一行里面有多个文字）等等

上面是我想出的，高手们又要累了：），不过，我认为如果都写完，可以说是目前见到的最完善的文字处理工具集了。

ll_j

我也写过一些关于文本的程序（Ju.lsp、Wr.lsp等），本想继续下去，后来有些其它原因就耽搁了，不过已经有一些思路，可供大家参考：
1.按实体Y值分行，vla-GetBoundingBox函数好像是不错的。
2.判别文本是否有空格，如有空格将文本分断，利用Textbox函数求出各段文本基点（DXF＝10）。
3.按文本基点给每行文本排序。
4.连接文本。

XDSoft

程序写好了，请试用...

                               
登录/注册后可看大图

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    命令：txt_rspace
   
6.    
   
7.    功能：去掉文字实体里面的空格，文字保持显示位置不变
   
8.    
   
9.    说明：解决一些朋友为了输入英文，把汉字留空格，以后编辑不方便的问题。
   
10.         程序可以处理多个文字实体，输入ALL，全图处理。
    
11.            
    
12.         程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
    
13.         LISP目录，自己加入到菜单里面就可以非常方便的使用了。
    
14.         关于程序的建议请到“晓东CAD空间-编程申请”论坛
    
15.         [url]http://www.xdcad.net/forum留言[/url]         
    
16.    
    
17. |;
    
18. (defun $xdlsp_text_position (e pos / ed dm p10 a old new ed1 box d1 px)
    
19.   (setq ed (entget e)
    
20.         dm (caadr (textbox ed))
    
21.         p10 (cdr (assoc 10 ed))
    
22.         a (cdr (assoc 50 ed))
    
23.         old (assoc 1 ed)
    
24.         new (cdr old)
    
25.         new (xdrx_string_trimLeft (substr new (1+ pos)))
    
26.         ed1 (subst
    
27.               (cons 1 new)
    
28.               old
    
29.               ed
    
30.             )
    
31.         box (textbox ed1)
    
32.         d1 (caadr box)
    
33. 
    
34.         px (polar p10 a (- dm d1))
    
35.   )
    
36. )
    
37. (defun $xdlsp_text_rspace (e / $text_rspace1 pos px ed ed1 e)
    
38.   (defun $text_rspace1 (e / txt p10 a box old dm d1 len)
    
39.     (setq ed (entget e)
    
40.           old (assoc 1 ed)
    
41.           txt (xdrx_getentdxf 1)
    
42.           len (strlen txt)
    
43.           txt (xdrx_string_trimLeft txt)
    
44.           $len_p (+ $len_p (- len (strlen txt)))
    
45.           len (strlen txt)
    
46.           txt (xdrx_string_trimRight txt)
    
47.           $len_s (+ $len_s (- len (strlen txt)))
    
48.           p10 (xdrx_getentdxf 10)
    
49.           a (xdrx_getentdxf 50)
    
50.           dm (caadr (textbox (entget e)))
    
51.           ed1 (subst
    
52.                 (cons 1 (xdrx_string_trimLeft txt))
    
53.                 old
    
54.                 ed
    
55.               )
    
56.           d1 (caadr (textbox ed1))
    
57.           p10 (polar p10 a (- dm d1))
    
58.     )
    
59.     (xdrx_modent 1 txt 10 p10)
    
60.     (xdrx_string_findOneOf txt " ")
    
61.   )
    
62.   (while (setq pos ($text_rspace1 e))
    
63.     (setq $len_m (1+ $len_m)
    
64.           px ($xdlsp_text_position e pos)
    
65.           ed (entget e)
    
66.           txt (cdr (assoc 1 ed))
    
67.           ed1 (subst
    
68.                 (cons 10 px)
    
69.                 (assoc 10 ed)
    
70.                 ed
    
71.               )
    
72.           ed1 (subst
    
73.                 (cons 1 (xdrx_string_trimLeft (substr txt (1+ pos))))
    
74.                 (assoc 1 ed1)
    
75.                 ed1
    
76.               )
    
77.           ed (subst
    
78.                (cons 1 (substr txt 1 pos))
    
79.                (assoc 1 ed)
    
80.                ed
    
81.              )
    
82.     )
    
83.     (entmod ed)
    
84.     (entmake ed1)
    
85.     (setq e (entlast))
    
86.     (xdrx_setenttodb e)
    
87.   )
    
88. )
    
89. (defun c:txt_rspace (/ ss e $len_s $len_p $len_m)
    
90.   (prompt "\n请选取要去除空格的文字[All-全选]<退出>:")
    
91.   (if (setq ss (ssget '((0 . "text"))))
    
92.     (progn
    
93.       (setq $len_s 0
    
94.             $len_m 0
    
95.             $len_p 0
    
96.       )
    
97.       (xdrx_setsstodb ss 0)
    
98.       (prompt "\n处理中...")
    
99.       (while (setq e (xdrx_getentdata 0))
    
100.         ($xdlsp_text_rspace e)
     
101.       )
     
102.       (prompt "\n处理完毕...")
     
103.       (prompt (strcat "\n共处理了 " (itoa (sslength ss))
     
104.                       " 个文字实体，去除了 " (itoa $len_p) " 个前导空格, "
     
105.                       (itoa $len_s) " 个尾部空格, " (itoa $len_m)
     
106.                       " 处中间空格"
     
107.               )
     
108.       )
     
109.     )
     
110.   )
     
111.   (princ)
     
112. )
     
113. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    命令：txt_rspace<br />    <br />    功能：去掉文字实体里面的空格，文字保持显示位置不变<br />    <br />    说明：解决一些朋友为了输入英文，把汉字留空格，以后编辑不方便的问题。<br />         程序可以处理多个文字实体，输入ALL，全图处理。<br />            <br />         程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的<br />         LISP目录，自己加入到菜单里面就可以非常方便的使用了。<br />         关于程序的建议请到“晓东CAD空间-编程申请”论坛<br />         [url]http://www.xdcad.net/forum留言[/url]         <br />    <br /> |;<br /> (defun $xdlsp_text_position (e pos / ed dm p10 a old new ed1 box d1 px)<br />   (setq ed (entget e)<br />         dm (caadr (textbox ed))<br />         p10 (cdr (assoc 10 ed))<br />         a (cdr (assoc 50 ed))<br />         old (assoc 1 ed)<br />         new (cdr old)<br />         new (xdrx_string_trimLeft (substr new (1+ pos)))<br />         ed1 (subst<br />               (cons 1 new)<br />               old<br />               ed<br />             )<br />         box (textbox ed1)<br />         d1 (caadr box)<br /> <br />         px (polar p10 a (- dm d1))<br />   )<br /> )<br /> (defun $xdlsp_text_rspace (e / $text_rspace1 pos px ed ed1 e)<br />   (defun $text_rspace1 (e / txt p10 a box old dm d1 len)<br />     (setq ed (entget e)<br />           old (assoc 1 ed)<br />           txt (xdrx_getentdxf 1)<br />           len (strlen txt)<br />           txt (xdrx_string_trimLeft txt)<br />           $len_p (+ $len_p (- len (strlen txt)))<br />           len (strlen txt)<br />           txt (xdrx_string_trimRight txt)<br />           $len_s (+ $len_s (- len (strlen txt)))<br />           p10 (xdrx_getentdxf 10)<br />           a (xdrx_getentdxf 50)<br />           dm (caadr (textbox (entget e)))<br />           ed1 (subst<br />                 (cons 1 (xdrx_string_trimLeft txt))<br />                 old<br />                 ed<br />               )<br />           d1 (caadr (textbox ed1))<br />           p10 (polar p10 a (- dm d1))<br />     )<br />     (xdrx_modent 1 txt 10 p10)<br />     (xdrx_string_findOneOf txt " ")<br />   )<br />   (while (setq pos ($text_rspace1 e))<br />     (setq $len_m (1+ $len_m)<br />           px ($xdlsp_text_position e pos)<br />           ed (entget e)<br />           txt (cdr (assoc 1 ed))<br />           ed1 (subst<br />                 (cons 10 px)<br />                 (assoc 10 ed)<br />                 ed<br />               )<br />           ed1 (subst<br />                 (cons 1 (xdrx_string_trimLeft (substr txt (1+ pos))))<br />                 (assoc 1 ed1)<br />                 ed1<br />               )<br />           ed (subst<br />                (cons 1 (substr txt 1 pos))<br />                (assoc 1 ed)<br />                ed<br />              )<br />     )<br />     (entmod ed)<br />     (entmake ed1)<br />     (setq e (entlast))<br />     (xdrx_setenttodb e)<br />   )<br /> )<br /> (defun c:txt_rspace (/ ss e $len_s $len_p $len_m)<br />   (prompt "\n请选取要去除空格的文字[All-全选]<退出>:")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq $len_s 0<br />             $len_m 0<br />             $len_p 0<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (prompt "\n处理中...")<br />       (while (setq e (xdrx_getentdata 0))<br />         ($xdlsp_text_rspace e)<br />       )<br />       (prompt "\n处理完毕...")<br />       (prompt (strcat "\n共处理了 " (itoa (sslength ss))<br />                       " 个文字实体，去除了 " (itoa $len_p) " 个前导空格, "<br />                       (itoa $len_s) " 个尾部空格, " (itoa $len_m)<br />                       " 处中间空格"<br />               )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

XDSoft

最初由 marting 发布
[B]晓东，EACHY谢谢你们前几天写的程序，同事们用了都说很方便。

1、我们以前画的图中，为了让英文和汉字不同高，很多图都把汉字中间留有空格，然后在中间空格处另外写上英文字，现在如果我要把这些字用程序连接起来... [/B]

谢谢你的建议，其他的程序正在整体考虑中，陆续会提炼组合，提供给大家。

也希望大家有什么好主意，贴到论坛来！

shsjack

最初由 marting 发布
晓东，EACHY谢谢你们前几天写的程序，同事们用了都说很方便。

1、我们以前画的图中，为了让英文和汉字不同高，很多图都把汉字中间留有空格，然后在中间空格处另外写上英文字，现在如果我要把这些字用程序连接起来

coolzhb

一般我使用按行连接，字体选中英文等高的，将原来的中文中有空格的替换为原位置的英文的字母。

DARCY

不错的程序。 我有空时作一个更好用的。

shuaier

在2004中不能用,我试过了,看看这个程序,很不错的,可以去掉多行文字和单行文字的空格!
这个程序在2004中试过,可以用!
命令:test

dwg001

shuaier楼主的程序测试过了，不错耶。谢谢。

li809

XD的能不能写一个不用通用程序的呀？

luoruibin

现在我用不上,我想以后会用的上.下载先

qiaqiadeng

我总觉得本论坛`上的程序有点偏长，没必要整那些个arx、vlx高深的东西，其实好多用lisp就解决了，对于这种帖子我看也不看。

xinxirong

对于文字为左对齐的可以，对于居中的文字就不行。为什么？