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

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一个单行文字，并删除中间的空格？

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源

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

本帖子中包含更多资源

本帖子中包含更多资源

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