求大神看下文字合并的问题，如图有文字都是断开的，如何框选使用文字能合并

664571221

求大神看下文字合并的问题，如图有文字都是断开的，如何框选使用文字能合并

小毛草

文字合并，这个可以参考，这个其它网友的源码！

2. 
   
3. ;;按行排列文字,nscale为字高的倍数，设为0.8，即文字竖向间距小于0.5倍字高，则按一行考虑
   
4. (defun c:qnn (/ sort_text_by_column1 sslst textlst scale)
   
5.   (defun sort_text_by_column1
   
6.             (sstext  nscale  /       n       rtnlst
   
7.              y       rtnlst1 rtnlst2 space1  space2
   
8.              aa      bb      cc      dd
   
9.             )
   
10.     (setq n -1
    
11.     rtnlst nil
    
12.     )
    
13.     (repeat (sslength sstext)
    
14.       (setq rtnlst (cons (ssname sstext (setq n (1+ n))) rtnlst))
    
15.     )
    
16.     (setq rtnlst
    
17.      (vl-sort
    
18.        rtnlst
    
19.        '(lambda (a b)
    
20.     (setq a  (vlax-ename->vla-object a)
    
21.           b  (vlax-ename->vla-object b)
    
22.     )
    
23.     (vla-GetBoundingBox a 'aa 'bb)
    
24.     (vla-GetBoundingBox b 'cc 'dd)
    
25.     (if
    
26.       (< (abs (- (vlax-safearray-get-element aa 1)
    
27.            (vlax-safearray-get-element cc 1)
    
28.         )
    
29.          )
    
30.          (abs
    
31.            (* nscale
    
32.         (- (vlax-safearray-get-element bb 1)
    
33.            (vlax-safearray-get-element aa 1)
    
34.         )
    
35.            )
    
36.          )
    
37.       )
    
38.        (< (vlax-safearray-get-element aa 0)
    
39.           (vlax-safearray-get-element cc 0)
    
40.        )
    
41.        (> (vlax-safearray-get-element aa 1)
    
42.           (vlax-safearray-get-element cc 1)
    
43.        )
    
44.     )
    
45.         )
    
46.      )
    
47.     )
    
48.     (setq y (cadr (zgx-get-dxf 10 (car rtnlst) 1)))
    
49.     (setq rtnlst1 nil
    
50.     rtnlst2 nil
    
51.     )
    
52.     (mapcar
    
53.       '(lambda (x)
    
54.    (vla-GetBoundingBox (vlax-ename->vla-object x) 'aa 'bb)
    
55.    (if
    
56.      (< (abs (- (cadr (zgx-get-dxf 10 x 1)) y))
    
57.         (* nscale
    
58.      (abs (- (vlax-safearray-get-element bb 1)
    
59.        (vlax-safearray-get-element aa 1)
    
60.           )
    
61.      )
    
62.         )
    
63.      )
    
64.       (progn
    
65.         (setq rtnlst1 (append rtnlst1 (list x)))
    
66.       )
    
67.       (progn
    
68.         (setq rtnlst2 (append rtnlst2 (list rtnlst1)))
    
69.         (setq y (cadr (zgx-get-dxf 10 x 1)))
    
70.         (setq rtnlst1 nil
    
71.         rtnlst1 (append rtnlst1 (list x))
    
72.         )
    
73.       )
    
74.    )
    
75.        )
    
76.       rtnlst
    
77.     )
    
78.     (setq rtnlst2 (append rtnlst2 (list rtnlst1)))
    
79.   )
    
80.   ;;----------------------------------------------
    
81.   (defun zgx-chg-dxf (en code newdata / endata)
    
82.     (setq endata (entget en))
    
83.     (if  (assoc code endata)
    
84.       (setq
    
85.   endata (subst (cons code newdata) (assoc code endata) endata)
    
86.       )
    
87.       (setq
    
88.   endata (append endata (list (cons code newdata)))
    
89.       )
    
90.     )
    
91.     (entmod endata)
    
92.   )
    
93.   (defun zgx-get-dxf (code entname kk)
    
94.     (if  (= kk 2)
    
95.       (assoc code (entget entname))
    
96.       (cdr (assoc code (entget entname)))
    
97.     )
    
98.   )
    
99.   ;;----------------------------------------------
    
100.   (prompt "\n选择需要合并的文字[更改间距系数]:")
     
101.   (setq sslst (ssget '((0 . "text,swr_text"))))
     
102. 
     
103.   (while (not sslst)
     
104.     (setq scale (getreal "\n输入间距系数[默认0.8]:"))
     
105.     (if  (not scale)
     
106.       (setq scale 0.8)
     
107.     )
     
108.     (prompt "\n选择需要合并的文字[更改间距系数]:")
     
109.     (setq sslst (ssget '((0 . "text,swr_text,tch_text"))))
     
110.   )
     
111. 
     
112.   (if (not scale)
     
113.     (setq scale 0.8)
     
114.   )
     
115.   (setq  sslst  (sort_text_by_column1 sslst scale)
     
116.   textlst  (mapcar  '(lambda (c)
     
117.          (apply 'strcat c)
     
118.        )
     
119.       (mapcar  '(lambda (x)
     
120.            (mapcar '(lambda (a)
     
121.                 (zgx-get-dxf 1 a 1)
     
122.               )
     
123.              x
     
124.            )
     
125.          )
     
126.         sslst
     
127.       )
     
128.     )
     
129.   )
     
130.   (vla-startundomark
     
131.     (vla-get-ActiveDocument (vlax-get-acad-object))
     
132.   )
     
133.   ;;改变每行第一个文字值
     
134.   (mapcar '(lambda (a b)
     
135.        (zgx-chg-dxf (car a) 1 b)
     
136.      )
     
137.     sslst
     
138.     textlst
     
139.   )
     
140.   (setq  sslst (apply 'append
     
141.          (mapcar 'cdr
     
142.            sslst
     
143.          )
     
144.         )
     
145.   )
     
146.   (foreach n sslst
     
147.     (entdel n)
     
148.   )
     
149.   (vla-endundomark
     
150.     (vla-get-ActiveDocument (vlax-get-acad-object))
     
151.   )
     
152.   (princ "\n文字合并结束!")
     
153.   (princ)
     
154. )

<br /> ;;按行排列文字,nscale为字高的倍数，设为0.8，即文字竖向间距小于0.5倍字高，则按一行考虑<br /> (defun c:qnn (/ sort_text_by_column1 sslst textlst scale)<br />   (defun sort_text_by_column1<br />             (sstext  nscale  /       n       rtnlst<br />              y       rtnlst1 rtnlst2 space1  space2<br />              aa      bb      cc      dd<br />             )<br />     (setq n -1<br />     rtnlst nil<br />     )<br />     (repeat (sslength sstext)<br />       (setq rtnlst (cons (ssname sstext (setq n (1+ n))) rtnlst))<br />     )<br />     (setq rtnlst<br />      (vl-sort<br />        rtnlst<br />        '(lambda (a b)<br />     (setq a  (vlax-ename->vla-object a)<br />           b  (vlax-ename->vla-object b)<br />     )<br />     (vla-GetBoundingBox a 'aa 'bb)<br />     (vla-GetBoundingBox b 'cc 'dd)<br />     (if<br />       (< (abs (- (vlax-safearray-get-element aa 1)<br />            (vlax-safearray-get-element cc 1)<br />         )<br />          )<br />          (abs<br />            (* nscale<br />         (- (vlax-safearray-get-element bb 1)<br />            (vlax-safearray-get-element aa 1)<br />         )<br />            )<br />          )<br />       )<br />        (< (vlax-safearray-get-element aa 0)<br />           (vlax-safearray-get-element cc 0)<br />        )<br />        (> (vlax-safearray-get-element aa 1)<br />           (vlax-safearray-get-element cc 1)<br />        )<br />     )<br />         )<br />      )<br />     )<br />     (setq y (cadr (zgx-get-dxf 10 (car rtnlst) 1)))<br />     (setq rtnlst1 nil<br />     rtnlst2 nil<br />     )<br />     (mapcar<br />       '(lambda (x)<br />    (vla-GetBoundingBox (vlax-ename->vla-object x) 'aa 'bb)<br />    (if<br />      (< (abs (- (cadr (zgx-get-dxf 10 x 1)) y))<br />         (* nscale<br />      (abs (- (vlax-safearray-get-element bb 1)<br />        (vlax-safearray-get-element aa 1)<br />           )<br />      )<br />         )<br />      )<br />       (progn<br />         (setq rtnlst1 (append rtnlst1 (list x)))<br />       )<br />       (progn<br />         (setq rtnlst2 (append rtnlst2 (list rtnlst1)))<br />         (setq y (cadr (zgx-get-dxf 10 x 1)))<br />         (setq rtnlst1 nil<br />         rtnlst1 (append rtnlst1 (list x))<br />         )<br />       )<br />    )<br />        )<br />       rtnlst<br />     )<br />     (setq rtnlst2 (append rtnlst2 (list rtnlst1)))<br />   )<br />   ;;----------------------------------------------<br />   (defun zgx-chg-dxf (en code newdata / endata)<br />     (setq endata (entget en))<br />     (if  (assoc code endata)<br />       (setq<br />   endata (subst (cons code newdata) (assoc code endata) endata)<br />       )<br />       (setq<br />   endata (append endata (list (cons code newdata)))<br />       )<br />     )<br />     (entmod endata)<br />   )<br />   (defun zgx-get-dxf (code entname kk)<br />     (if  (= kk 2)<br />       (assoc code (entget entname))<br />       (cdr (assoc code (entget entname)))<br />     )<br />   )<br />   ;;----------------------------------------------<br />   (prompt "\n选择需要合并的文字[更改间距系数]:")<br />   (setq sslst (ssget '((0 . "text,swr_text"))))<br /> <br />   (while (not sslst)<br />     (setq scale (getreal "\n输入间距系数[默认0.8]:"))<br />     (if  (not scale)<br />       (setq scale 0.8)<br />     )<br />     (prompt "\n选择需要合并的文字[更改间距系数]:")<br />     (setq sslst (ssget '((0 . "text,swr_text,tch_text"))))<br />   )<br /> <br />   (if (not scale)<br />     (setq scale 0.8)<br />   )<br />   (setq  sslst  (sort_text_by_column1 sslst scale)<br />   textlst  (mapcar  '(lambda (c)<br />          (apply 'strcat c)<br />        )<br />       (mapcar  '(lambda (x)<br />            (mapcar '(lambda (a)<br />                 (zgx-get-dxf 1 a 1)<br />               )<br />              x<br />            )<br />          )<br />         sslst<br />       )<br />     )<br />   )<br />   (vla-startundomark<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br />   ;;改变每行第一个文字值<br />   (mapcar '(lambda (a b)<br />        (zgx-chg-dxf (car a) 1 b)<br />      )<br />     sslst<br />     textlst<br />   )<br />   (setq  sslst (apply 'append<br />          (mapcar 'cdr<br />            sslst<br />          )<br />         )<br />   )<br />   (foreach n sslst<br />     (entdel n)<br />   )<br />   (vla-endundomark<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br />   (princ "\n文字合并结束!")<br />   (princ)<br /> )

广易精通

小毛草 发表于 2022-7-21 17:06
文字合并，这个可以参考，这个其它网友的源码！

请问Y向的怎么合并不了

664571221

meja 发表于 2019-1-6 16:15
lee mac大神给我编了一个

你好大神在吗可以加下我qq吗

mikewolf2k

定制程序。以前做过。

meja

lee mac大神给我编了一个

664571221

meja 发表于 2019-1-6 16:15
lee mac大神给我编了一个

能发个我吗 664571221@qq.com

QWQWQWQ

947198446可以做

664571221

QWQWQWQ 发表于 2021-12-24 11:27
947198446可以做

加不上有问题

my_autocad

同求，可付费

664571221

my_autocad 发表于 2022-7-6 22:08
同求，可付费

兄弟加我3298554767