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

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

回复才可见隐藏的源码哦！如下：
;;;*****文字合并 程序开始*****
(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)]"
                  )
         )
      )
    (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
(function
                (lambda      (e1 e2)
                  (if (equal (cadr (car e1)) (cadr (car e2)) 1e-4)
                  (> (car (car e1)) (car (car e2)))
                  (文字合并


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

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

jierc 发表于 2022-7-6 16:55:00

多谢楼主，正好需要

宁静港湾 发表于 2022-5-13 07:59:00

感谢大佬的无私分享，虽然工作用不上，谢谢了！

ZJKUSO 发表于 2022-5-12 21:54:00

这个好，会用到

sncokina 发表于 2022-2-11 12:55:00

谢谢楼主分享！

jxjaxa 发表于 2022-2-3 12:14:00

谢谢楼主分享~~~~~~~~~~~~

彳余 发表于 2021-12-25 09:43:00


很实用的小程序

xunsky 发表于 2021-12-24 14:43:00

哈哈，刚好需要 谢谢

lwcox 发表于 2021-12-4 20:34:00

谢谢楼主，学习了！！！
页: [1]
查看完整版本: 【源码】将单行/多行文字合并