yjpyjp 发表于 2019-4-17 19:55:48

求大佬修改这个源码，合并单行文字 并在文字间加一个空格

本帖最后由 yjpyjp 于 2019-4-17 20:38 编辑

在合并好的文字间加一个空格
并且将合并好的文字更换到一个新的图层并隐藏该图层




(defun c:hbwz()
(setq ss (ssget '((0 . "text"))))
(while (/= nil ss)
    (progn
(if ss
    (progn
      (setq en (ssname ss 0))
      (setq txt (cdr (assoc 1 (setq enl (entget en)))))
      (ssdel en ss)
      (repeat (sslength ss)
      (setq e (ssname ss 0))
      (ssdel e ss)
      (setq txt (strcat txt (cdr (assoc 1 (entget e)))))
      (entdel e)
      )
      (setq enl (subst (cons 1 txt) (assoc 1 enl) enl))
      (entmod enl)
      )
    )
(setq ss (ssget '((0 . "text"))))
)
    )
(princ)
)

xyp1964 发表于 2019-4-17 21:01:43


(defun c:tt ()
(if (null (tblsearch "layer" "test"))
    (command "layer" "n" "test" "off" "test" "")
)
(while (setq ss (ssget '((0 . "text"))))
    (setq en (ssname ss 0))
    (setq txt (cdr (assoc 1 (setq enl (entget en)))))
    (ssdel en ss)
    (repeat (sslength ss)
      (setq e (ssname ss 0)
          txt (strcat txt " " (cdr (assoc 1 (entget e))))
      )
      (ssdel e ss)
      (entdel e)
    )
    (setq enl (subst (cons 1 txt) (assoc 1 enl) enl))
    (entmod enl)
    (command "chprop" en "" "la" "test" "")
)
(princ)
)

1291500406 发表于 2019-4-17 20:30:31

本帖最后由 1291500406 于 2019-4-17 22:57 编辑

以院长的代码为准，我的撤销了

1291500406 发表于 2019-4-17 22:37:44

xyp1964 发表于 2019-4-17 21:01


挺好的，赞一个

f4800 发表于 2020-11-2 12:32:42

xyp1964 发表于 2019-4-17 21:01


请教
多谢

CAD 中，    H=243.13 Wz=13.00 Wy=13.00 是一个单行文字。
现在如何拆分开， 成为H=243.13一个单行文字、 Wz=13.00一个单行文字、 Wy=13.00一个单行文字 ，并删除中间的空格 ？




页: [1]
查看完整版本: 求大佬修改这个源码，合并单行文字 并在文字间加一个空格