（完成）[编程申请]：如何把“散开的字符串合并成一段句子”？

chhm

如何把“散开的字符串合并成一段句子”？散开的字符串用“C”“W”等选取？哪位大师能提供此类程序呢？

lt_zzy

这个程序是以X坐标控制的合并方式：X坐标小的合并的时候在前面。

2. 
   
3.   [FONT=courier new]
   
4. ((defun c:ljwb1()
   
5.   (setvar "cmdecho"0)
   
6.   (command "undo" "group")
   
7.   (setq result "")
   
8.   (princ"\n请选择要连接的文本:")
   
9.   (setq a (ssget '((0 . "TEXT"))))
   
10.   (setq n (sslength a))
    
11.   (setq nnn (1- n))
    
12.   (setq number 0 nn 0)
    
13.   (repeat n
    
14.     (setq a1 (ssname a number))                     
    
15.     (setq a11 (entget a1))                          
    
16.     (setq a_x (cadr (assoc 10 a11)))               
    
17.     (if (= nn 1)
    
18.        (progn
    
19.          (if (< a_x x)
    
20.            (progn
    
21.              (setq x a_x xold a_x)
    
22.              (setq text (cdr (assoc 1 a11)))
    
23.            )
    
24.          )
    
25.        )
    
26.        (progn
    
27.           (setq nn 1 x a_x xold a_x)
    
28.           (setq text (cdr (assoc 1 a11)))
    
29.        )
    
30.     )
    
31.     (setq number (1+ number))
    
32.   )
    
33.   (setq result (strcat result text))
    
34.   (repeat nnn
    
35.     (setq number 0 nn 0 dx 0 a_x 0)
    
36.     (repeat n
    
37.       (setq a1 (ssname a number))
    
38.       (setq a11 (entget a1))                          
    
39.       (setq b_x (cadr (assoc 10 a11)))               
    
40.       (if (= nn 1)
    
41.          (setq a_x (- b_x x))
    
42.       )
    
43.       (if (and (> b_x x) (= nn 0))
    
44.          (setq dx (- b_x x) nn 1 c11 a11 a_x_new b_x)
    
45.       )
    
46.       (if (and (> a_x 0) (< a_x dx))
    
47.         (setq dx a_x c11 a11 a_x_new b_x)
    
48.       )
    
49.       (setq number (1+ number))
    
50.     )
    
51.     (setq text (cdr (assoc 1 c11)))
    
52.     (setq result (strcat result text))
    
53.     (setq x a_x_new)
    
54.   )
    
55.   (setq result (cons 1 result))                  
    
56.   (setq number 0)
    
57.   (repeat n
    
58.     (setq a1 (ssname a number))                     
    
59.     (setq a11 (entget a1))                           
    
60.     (setq a_x (cadr (assoc 10 a11)))               
    
61.     (if (= a_x xold)
    
62.       (setq result (subst result (assoc 1 a11) a11))  
    
63.       (entdel a1)
    
64.     )
    
65.     (setq number (1+ number))
    
66.   )
    
67.   (entmod result)                             
    
68.   (command "undo" "end")
    
69.   (setvar"cmdecho"1)
    
70.   (princ)
    
71. ))  [/FONT]
    

<br />   [FONT=courier new]<br /> ((defun c:ljwb1()<br />   (setvar "cmdecho"0)<br />   (command "undo" "group")<br />   (setq result "")<br />   (princ"\n请选择要连接的文本:")<br />   (setq a (ssget '((0 . "TEXT"))))<br />   (setq n (sslength a))<br />   (setq nnn (1- n))<br />   (setq number 0 nn 0)<br />   (repeat n<br />     (setq a1 (ssname a number))                     <br />     (setq a11 (entget a1))                          <br />     (setq a_x (cadr (assoc 10 a11)))                <br />     (if (= nn 1)<br />        (progn<br />          (if (< a_x x)<br />            (progn<br />              (setq x a_x xold a_x)<br />              (setq text (cdr (assoc 1 a11)))<br />            )<br />          )<br />        )<br />        (progn<br />           (setq nn 1 x a_x xold a_x)<br />           (setq text (cdr (assoc 1 a11)))<br />        )<br />     )<br />     (setq number (1+ number))<br />   )<br />   (setq result (strcat result text))<br />   (repeat nnn<br />     (setq number 0 nn 0 dx 0 a_x 0)<br />     (repeat n<br />       (setq a1 (ssname a number))<br />       (setq a11 (entget a1))                          <br />       (setq b_x (cadr (assoc 10 a11)))                <br />       (if (= nn 1)<br />          (setq a_x (- b_x x))<br />       )<br />       (if (and (> b_x x) (= nn 0))<br />          (setq dx (- b_x x) nn 1 c11 a11 a_x_new b_x)<br />       )<br />       (if (and (> a_x 0) (< a_x dx))<br />         (setq dx a_x c11 a11 a_x_new b_x)<br />       )<br />       (setq number (1+ number))<br />     )<br />     (setq text (cdr (assoc 1 c11)))<br />     (setq result (strcat result text))<br />     (setq x a_x_new)<br />   )<br />   (setq result (cons 1 result))                   <br />   (setq number 0)<br />   (repeat n<br />     (setq a1 (ssname a number))                      <br />     (setq a11 (entget a1))                           <br />     (setq a_x (cadr (assoc 10 a11)))                <br />     (if (= a_x xold)<br />       (setq result (subst result (assoc 1 a11) a11))  <br />       (entdel a1)<br />     )<br />     (setq number (1+ number))<br />   )<br />   (entmod result)                             <br />   (command "undo" "end")<br />   (setvar"cmdecho"1)<br />   (princ)<br /> ))  [/FONT]<br />

lt_zzy

这个程序是以Y坐标来控制的合并方式，Y坐标大的放在前面。这两个程序将文本合并以后会删除其他文本，只保留一个文本。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ljwb2()
   
5.   (setvar "cmdecho"0)
   
6.   (command "undo" "group")
   
7.   (setq result "")
   
8.   (princ"\n请选择要连接的文本:")
   
9.   (setq a (ssget '((0 . "TEXT"))))
   
10.   (setq n (sslength a))
    
11.   (setq nnn (1- n))
    
12.   (setq number 0 nn 0)
    
13.   (repeat n
    
14.     (setq a1 (ssname a number))                     
    
15.     (setq a11 (entget a1))                           
    
16.     (setq a_y (caddr (assoc 10 a11)))               
    
17.     (if (= nn 1)
    
18.        (progn
    
19.          (if (> a_y y)
    
20.            (progn
    
21.              (setq y a_y yold a_y)
    
22.              (setq text (cdr (assoc 1 a11)))
    
23.            )
    
24.          )
    
25.        )
    
26.        (progn
    
27.           (setq nn 1 y a_y yold a_y)
    
28.           (setq text (cdr (assoc 1 a11)))
    
29.        )
    
30.     )
    
31.     (setq number (1+ number))
    
32.   )
    
33.   (setq result (strcat result text))
    
34.   (repeat nnn
    
35.     (setq number 0 nn 0 dy 0 a_y 0)
    
36.     (repeat n
    
37.       (setq a1 (ssname a number))
    
38.       (setq a11 (entget a1))                           
    
39.       (setq b_y (caddr (assoc 10 a11)))               
    
40.       (if (= nn 1)
    
41.          (setq a_y (- b_y y))
    
42.       )
    
43.       (if (and (< b_y y) (= nn 0))
    
44.          (setq dy (- b_y y) nn 1 c11 a11 a_y_new b_y)
    
45.       )
    
46.       (if (and (< a_y 0) (> a_y dy))
    
47.         (setq dy a_y c11 a11 a_y_new b_y)
    
48.       )
    
49.       (setq number (1+ number))
    
50.     )
    
51.     (setq text (cdr (assoc 1 c11)))
    
52.     (setq result (strcat result text))
    
53.     (setq y a_y_new)
    
54.   )
    
55.   (setq result (cons 1 result))                  
    
56.   (setq number 0)
    
57.   (repeat n
    
58.     (setq a1 (ssname a number))                     
    
59.     (setq a11 (entget a1))                           
    
60.     (setq a_y (caddr (assoc 10 a11)))               
    
61.     (if (= a_y yold)
    
62.       (setq result (subst result (assoc 1 a11) a11))  
    
63.       (entdel a1)
    
64.     )
    
65.     (setq number (1+ number))
    
66.   )
    
67.   (entmod result)                             
    
68.   (command "undo" "end")
    
69.   (setvar"cmdecho"1)
    
70.   (princ)
    
71. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:ljwb2()<br />   (setvar "cmdecho"0)<br />   (command "undo" "group")<br />   (setq result "")<br />   (princ"\n请选择要连接的文本:")<br />   (setq a (ssget '((0 . "TEXT"))))<br />   (setq n (sslength a))<br />   (setq nnn (1- n))<br />   (setq number 0 nn 0)<br />   (repeat n<br />     (setq a1 (ssname a number))                      <br />     (setq a11 (entget a1))                           <br />     (setq a_y (caddr (assoc 10 a11)))                <br />     (if (= nn 1)<br />        (progn<br />          (if (> a_y y)<br />            (progn<br />              (setq y a_y yold a_y)<br />              (setq text (cdr (assoc 1 a11)))<br />            )<br />          )<br />        )<br />        (progn<br />           (setq nn 1 y a_y yold a_y)<br />           (setq text (cdr (assoc 1 a11)))<br />        )<br />     )<br />     (setq number (1+ number))<br />   )<br />   (setq result (strcat result text))<br />   (repeat nnn<br />     (setq number 0 nn 0 dy 0 a_y 0)<br />     (repeat n<br />       (setq a1 (ssname a number))<br />       (setq a11 (entget a1))                           <br />       (setq b_y (caddr (assoc 10 a11)))                <br />       (if (= nn 1)<br />          (setq a_y (- b_y y))<br />       )<br />       (if (and (< b_y y) (= nn 0))<br />          (setq dy (- b_y y) nn 1 c11 a11 a_y_new b_y)<br />       )<br />       (if (and (< a_y 0) (> a_y dy))<br />         (setq dy a_y c11 a11 a_y_new b_y)<br />       )<br />       (setq number (1+ number))<br />     )<br />     (setq text (cdr (assoc 1 c11)))<br />     (setq result (strcat result text))<br />     (setq y a_y_new)<br />   )<br />   (setq result (cons 1 result))                   <br />   (setq number 0)<br />   (repeat n<br />     (setq a1 (ssname a number))                      <br />     (setq a11 (entget a1))                           <br />     (setq a_y (caddr (assoc 10 a11)))                <br />     (if (= a_y yold)<br />       (setq result (subst result (assoc 1 a11) a11))  <br />       (entdel a1)<br />     )<br />     (setq number (1+ number))<br />   )<br />   (entmod result)                             <br />   (command "undo" "end")<br />   (setvar"cmdecho"1)<br />   (princ)<br /> )  [/FONT]<br />

lsjjm

搂主能否说说有何使用价值？或贴个图看看？

XDSoft

最初由 chhm 发布
[B]如何把“散开的字符串合并成一段句子”？散开的字符串用“C”“W”等选取？哪位大师能提供此类程序呢？ [/B]

晓东工具箱，文字工具－按行连接


下载地址：http://www.xdcad.net/techcenter/ ... 3_xdtb_txt_zxmh.swf

<embed src=http://www.xdcad.net/techcenter/upload/file/1_20030730221623_xdtb_txt_zxmh.swf quality=high width=800 height=600 loop=true type="application/x-shockwave-flash">
</embed>

chhm

多谢版主

coolzhb

找了好久，终于找到了，以前的东东都不按照坐标排序！