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

荒野孤行 · 发表于 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)))
                  (文字合并

yy0vfrjjgyr.gif