荒野孤行 发表于 2016-1-9 22:41:42

【源码】将单行/多行文字合并

本帖最后由 荒野孤行 于 2016-1-24 20:30 编辑

回复才可见隐藏的源码哦！如下：

;;;*****文字合并 程序开始*****
(defun c:hb (/ lst)
(setq oldaun (getvar "aunits"))
(setvar "aunits" 3)
(setvar "osmode" 15359)
(setvar "cmdecho" 0)
(command "undo" "be")
(princ "\n★功能：文字合并。\n制作者：吴丁运\n")
(setq ss (ssget '((0 . "MTEXT,TEXT"))))
(setvar "osmode" 0)
(initget "E S A")
(if (not (setq kword
                  (getkword
                  "\n在合并文字之间加：[换行(E)/空格(S)/直接合并(A)]<E>"
                  )
         )
      )
    (setq kword "E")
)
(setvar "osmode" 0)
(setq lst '())
(while (> (sslength ss) 0)
    (setq entnam (ssname ss 0)
          entdat (entget entnam)
    )
    (setq pt(cdr (assoc 10 entdat))      ;读取文字的插入点坐标
          txt (cdr (assoc 1 entdat))      ;读取文字内容
          zg(cdr (assoc 40 entdat))      ;读取文字的字高
          lst (cons (list pt txt zg) lst) ;将点坐标、内容、字高组成表
          ss(ssdel entnam ss)                ;选择集中删除当前的文字对象
    )
    (entdel entnam)                        ;删除文字对象
)
(setq
    lst
   (vl-sort lst
**** Hidden Message *****
(command "MTEXT" pt "H" zg "W" 0 str "")
(princ "\n★提示:文字合并完成.\n")
(princ)
(setvar "aunits" oldaun)
(command "undo" "e")
(setvar "osmode" 15359)
(princ)
)
;;;*****文字合并 程序结束*****
程序执行后的效果请见图片演示：


tang87 发表于 2016-10-16 09:16:30

搂主可以按你这个方式做个拆分的源码吗？我相信一定很实用。我先给你支持下。

zhufeng1004 发表于 昨天 22:51

好程序，很适合

qd001 发表于 2024-11-20 23:18:18

新手收藏一下{:1_1:}

jiangqian124 发表于 2024-11-13 13:08:05

正在找这个，感谢感谢

290887497 发表于 2024-9-11 10:52:25

如果能原位合并成多行文字就更好

ljxkm 发表于 2024-6-11 21:02:37

多谢分享，学习学习

听见天晴 发表于 2024-6-10 23:34:15

谢谢分享 好像坐标不是世界坐标的时候，合并的文字会飘掉是吗?

chaozhong116 发表于 2024-6-3 10:38:45

单行多行合并，这个好啊

阿猪蛋 发表于 2024-6-3 08:37:18

这个插件太优秀了

201405简 发表于 2024-6-1 23:00:50

这个插件太优秀了
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 【源码】将单行/多行文字合并