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

hui987 发表于 2011-10-16 16:45:47

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

vormittag 发表于 2011-10-17 09:46:56

(defun c:wzhb(/ ss i ename dl ell x text e1 e2)
(setq ss (ssget '((0 . "TEXT")))
      i0
   dl nil
   minx nil
);setq
(if ss
   (progn
(repeat (sslength ss)
(setq ename (ssname ss i)
   ell (entget ename)
   x    (cadr (assoc 10 ell))
   text (cdr (assoc 1 ell))
   i    (1+ i)
);setq
(setq dl (append dl (list (list x text ename))))
);repeat
(setq dl (vl-sort dl (function (lambda (e1 e2) (< (car e1) (car e2)))))
         i 1
      text(cadr (nth 0 dl))
      ename (caddr (nth 0 dl))
      ell (entget ename)
);setq
(repeat (- (length dl) 1)
(setq text (strcat text (cadr (nth i dl))))
(entdel (caddr (nth i dl)))
(setq i (1+ i))
);repeat
(setq ell (subst (cons 1 text) (assoc 1 ell) ell))
(entmod ell)
(entupd ename)
);progn
(princ "\n未选中任何文字！")
);if
(princ)
)把选中的所有文字合并到最左边一个文字图元。位置、字高、对齐方式就是最左边文字为准。如果楼主要位置、图层、大小都不变化，建议创建组。

liner122 发表于 2018-10-7 16:48:28

不错，挺好用的

hui987 发表于 2011-10-16 16:47:20

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

hui987 发表于 2011-10-16 16:56:51

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

hui987 发表于 2011-10-16 16:58:40

字高300，希望能连接起来

yoyoho 发表于 2011-10-17 12:08:52

感谢 vormittag 分享程序!

hui987 发表于 2011-10-17 20:44:09

很感谢

lizhiqiang9801 发表于 2011-11-15 16:48:54

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

cii 发表于 2011-12-1 19:48:15

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

cii 发表于 2011-12-1 21:49:39

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

页: [1] 2

明经CAD社区's Archiver

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