[分享]：给大家完成了“完美的文字连接”程序，见内...

XDSoft

程序可以处理多行、大段的水平文字，一行里面可以是多个文字，文字中间可以空格，空格处写别的文字，最后按照行，每行变成一个文字实体，总之，完美再现屏幕显示效果。

转换前：

                               
登录/注册后可看大图

转换后：

                               
登录/注册后可看大图

2. 
   
3. [FONT=courier new]
   
4. (defun c:txt_join (/ $txt_join_rspace ss e entl n)
   
5.   (defun $txt_join (el / n e txt tf m)
   
6.     (prompt "\n正在连接......")
   
7.     (foreach n el
   
8.       (setq e (car n)
   
9.             txt ""
   
10.             tf t
    
11.       )
    
12.       (foreach m n
    
13.         (xdrx_setenttodb m)
    
14.         (setq txt (strcat txt (xdrx_getentdxf 1)))
    
15.         (if (not tf)
    
16.           (progn
    
17.             (entdel m)
    
18.           )
    
19.           (setq tf nil)
    
20.         )
    
21.       )
    
22.       (xdrx_setenttodb e)
    
23.       (xdrx_modent 1 txt)
    
24.     )
    
25.     (prompt "完毕!")
    
26.   )
    
27.   (prompt "\n请选取要连接的文字<退出>:")
    
28.   (if (setq ss (ssget '((0 . "text"))))
    
29.     (progn
    
30.       (xdrx_begin)
    
31.       (xdrx_setmark)
    
32.       ($xdlsp_text_rspace1 ss t)
    
33.       (if (setq ss1 (xdrx_getss))
    
34.         (setq ss (xdrx_pickset_union ss ss1))
    
35.       )
    
36.       (princ (sslength ss))
    
37.       ($txt_join ($xdlsp_text_sort ss t))
    
38.       (xdrx_end)
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:txt_join (/ $txt_join_rspace ss e entl n)<br />   (defun $txt_join (el / n e txt tf m)<br />     (prompt "\n正在连接......")<br />     (foreach n el<br />       (setq e (car n)<br />             txt ""<br />             tf t<br />       )<br />       (foreach m n<br />         (xdrx_setenttodb m)<br />         (setq txt (strcat txt (xdrx_getentdxf 1)))<br />         (if (not tf)<br />           (progn<br />             (entdel m)<br />           )<br />           (setq tf nil)<br />         )<br />       )<br />       (xdrx_setenttodb e)<br />       (xdrx_modent 1 txt)<br />     )<br />     (prompt "完毕!")<br />   )<br />   (prompt "\n请选取要连接的文字<退出>:")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setmark)<br />       ($xdlsp_text_rspace1 ss t)<br />       (if (setq ss1 (xdrx_getss))<br />         (setq ss (xdrx_pickset_union ss ss1))<br />       )<br />       (princ (sslength ss))<br />       ($txt_join ($xdlsp_text_sort ss t))<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

下面附件包括了这个程序提供前面，写过的所有“文字处理”工具。

cao2420

不会哦！~:9

guanhuaming

; 错误: no function definition: XDRX_BEGIN！！

xhf

最初由 guanhuaming 发布
[B]; 错误: no function definition: XDRX_BEGIN！！ [/B]

使用前要加载晓东工具箱中的ARX函数。

自由的鱼

好东东，一直想写都没写出来~~：）

flowerson

连接后是以那种字为标准呢？

licuiqun

我不是很看得懂怎么用啊,它的好处在哪啊

guanhuaming

最初由 xhf 发布
[B]
使用前要加载晓东工具箱中的ARX函数。 [/B]

并不是每个人的机子都装什么东工具箱的。

pxt2001

请版主简要介绍附件——“文字处理”的功能.

xshrimp

先要安装xdcad才能使用？

齐小社88

命令是  txt_join ：你看代码  C: 后面。


我怎么连接不了？
如下：

命令: txt_join
请选取要连接的文字<退出>:
选择对象: 指定对角点: 找到 3 个
已滤除 3 个。

选择对象:

命令:

Jerry541

晓东工具箱本身就有文字连接的功能。

xqzhtym

不会用

知遥

版主讲清楚些用法，软件环境。。。。

迷、

太强大了，学习一下