求助将相邻的文字合并起来

hui987

想把cad里的相邻的文字合并起来，比如，谢 谢 大 家，合并成谢谢大家，不只是文字哦，数字，英文，等等，只要是相邻的字就合并，位置，大小不想改变

vormittag

2. (defun c:wzhb(/ ss i ename dl ell x text e1 e2)
   
3.     (setq ss (ssget '((0 . "TEXT")))
   
4.               i  0
   
5.                   dl nil
   
6.                   minx nil
   
7.         );setq
   
8.         (if ss
   
9.             (progn
   
10.                         (repeat (sslength ss)
    
11.                                 (setq ename (ssname ss i)
    
12.                                           ell    (entget ename)
    
13.                                           x      (cadr (assoc 10 ell))
    
14.                                           text   (cdr (assoc 1 ell))
    
15.                                           i      (1+ i)
    
16.                                 );setq
    
17.                                 (setq dl (append dl (list (list x text ename))))
    
18.                         );repeat
    
19.                         (setq dl    (vl-sort dl (function (lambda (e1 e2) (< (car e1) (car e2)))))
    
20.                           i     1
    
21.                               text  (cadr (nth 0 dl))
    
22.                               ename (caddr (nth 0 dl))
    
23.                               ell   (entget ename)
    
24.                         );setq
    
25.                         (repeat (- (length dl) 1)
    
26.                                 (setq text (strcat text (cadr (nth i dl))))
    
27.                                 (entdel (caddr (nth i dl)))
    
28.                                 (setq i (1+ i))
    
29.                         );repeat
    
30.                         (setq ell (subst (cons 1 text) (assoc 1 ell) ell))
    
31.                         (entmod ell)
    
32.                         (entupd ename)
    
33.                 );progn
    
34.                 (princ "\n未选中任何文字！")
    
35.         );if
    
36.         (princ)
    
37. )

(defun c:wzhb(/ ss i ename dl ell x text e1 e2)<br />     (setq ss (ssget '((0 . "TEXT"))) <br />               i  0 <br />                   dl nil <br />                   minx nil<br />         );setq<br />         (if ss<br />             (progn <br />                         (repeat (sslength ss)<br />                                 (setq ename (ssname ss i)<br />                                           ell    (entget ename)<br />                                           x      (cadr (assoc 10 ell))<br />                                           text   (cdr (assoc 1 ell))<br />                                           i      (1+ i)<br />                                 );setq<br />                                 (setq dl (append dl (list (list x text ename))))<br />                         );repeat<br />                         (setq dl    (vl-sort dl (function (lambda (e1 e2) (< (car e1) (car e2)))))<br />                           i     1<br />                               text  (cadr (nth 0 dl))<br />                               ename (caddr (nth 0 dl))<br />                               ell   (entget ename)<br />                         );setq<br />                         (repeat (- (length dl) 1)<br />                                 (setq text (strcat text (cadr (nth i dl))))<br />                                 (entdel (caddr (nth i dl)))<br />                                 (setq i (1+ i))<br />                         );repeat<br />                         (setq ell (subst (cons 1 text) (assoc 1 ell) ell))<br />                         (entmod ell)<br />                         (entupd ename)<br />                 );progn<br />                 (princ "\n未选中任何文字！")<br />         );if<br />         (princ)<br /> )

把选中的所有文字合并到最左边一个文字图元。位置、字高、对齐方式就是最左边文字为准。如果楼主要位置、图层、大小都不变化，建议创建组。

liner122

不错，挺好用的

hui987

新手，希望大家给的是完整代码，先谢了

hui987

本来一张图里面字是连着的，不小心被我用工具打散了，变成一个字一个字

hui987

字高300，希望能连接起来

yoyoho

感谢 vormittag 分享程序!

hui987

很感谢

lizhiqiang9801

谢谢楼主.............

cii

太好了，我用天正的文字合并正觉得不爽，哈哈
非常感谢

cii

这个是不是老版本天正里的命令？