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

yjpyjp · 发表于 2019-4-17 19:58:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

(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)
  )

王鹏_pBZlo · 发表于 2019-4-17 21:31:34

本帖最后由王鹏_pBZlo 于 2019-4-18 10:36 编辑

(defun c:tt( / par txt att)
(setq par (entget (car (entsel "选择TEXT对象:"))))
(setq txt (cdr (assoc 1 par)))
(while (setq att (car (entsel "\n选择被合并的TEXT对象:")))
(setq txt (strcat txt " " (cdr (assoc 1 (entget att)))))
(entmod (subst (cons 1 txt) (assoc 1 par) par))
(entdel att)
)
(princ)
)合并后的文字的图层颜色对齐方式按选择的第一个TEXT对象

来自: 微社区

longer88 · 发表于 2019-4-18 00:15:38

感谢分享。。。。。。。

王鹏_pBZlo · 发表于 2019-4-19 21:45:05

程序达到你的要求了吗？
来自: 微社区

yjpyjp · 发表于 2019-4-19 23:25:26

王鹏_pBZlo 发表于 2019-4-19 21:45
程序达到你的要求了吗？

xx谢谢大师

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

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