将多行文本去掉回车变单行的代码

Lisphk · 发表于 2016-11-25 22:40:31

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

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

×

(defun c:tt ()
  (if (setq e (ssget ":s:e" '((0 . "mtext"))))
    (progn
      (setq e (ssname e 0))
      (setq o        (vlax-ename->vla-object e)
            txt        (vla-get-textstring o)
            txt        (vl-string-translate "\\P" " " txt)
      ) ;_ 结束setq
      (vla-put-TextString o txt)
    ) ;_ 结束progn
  ) ;_ 结束if
  (princ)
) ;_ 结束defun

Lisphk · 发表于 2016-11-25 22:54:13

另外一个写法：

(defun c:tt ()
  (vl-load-com)
  (if (setq ss (ssget '((0 . "MTEXT"))))
    ((lambda (i / e v s)
       (while (setq e (ssname ss (setq i (1+ i))))
         (setq
           s (vla-get-textstring (setq v (vlax-ename->vla-object e)))
         )
         (while        (vl-string-search "\\P" s)
           (setq s (vl-string-subst " " "\\P" s))
         )
         (vla-put-textstring v s)
       )
     )
      -1
    )
  )
  (princ)
)

Lisphk · 发表于 2016-11-25 22:58:47

反操作，空格变回车（单行变多行）

(defun C:tt (/ ss n obj)
  (if (setq ss (ssget '((0 . "MTEXT"))))
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (vla-put-textstring
        obj
        (vl-string-translate " " "\n" (vla-get-textstring obj))
      ) ;_ end of vla-put-textstring
    ) ;_ end of repeat
  ) ;_ end of if
  (princ)
) ;_ end of defun

cable2004 · 发表于 2016-11-26 00:11:22

正需要，支持楼主大人了！

Michael527 · 发表于 2016-11-26 03:15:44

多变单，单变多，全了

longer1000 · 发表于 2016-11-26 08:12:00

啥也不说了，感谢楼主分享哇！

yoyoho · 发表于 2016-11-26 09:01:36

正需要，支持楼主大人了！

spp_wall · 发表于 2016-11-26 09:37:28

感觉还是多行啊！！！！！！

xvjiex · 发表于 2021-11-3 06:28:42

感谢分享将多行文本去掉回车变单行的代码

ketxu · 发表于 2021-11-6 10:28:22

Thank you. With Vl function, all Unicode character will be wrong ^^

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

[每日一码] 将多行文本去掉回车变单行的代码

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