请问如何去除多行文字里的换行符

wgij007 · 发表于 2020-12-9 19:05:28

本帖最后由 wgij007 于 2020-12-9 19:30 编辑

请问如何去除多行文字里的换行符不明有些多行文字换行没有/p,有些又有.有为法去了/p,而不改变格式吗。

wudechao · 发表于 2020-12-13 16:37:00

(defun c:tt (/ ent txt1)
  (setvar "cmdecho" 0)
  (setq ent (car (entsel "\n选择一个多行文字(mtext)：")))
  (if (= "MTEXT" (cdr (assoc 0 (entget ent))))
(progn
   (setq txt1 (cdr (assoc 1 (entget ent))))
   (while (vl-string-search "\\P" txt1)
(setq txt1 (vl-string-subst "" "\\P" txt1))
   )
   (while (vl-string-search "\n" txt1)
(setq txt1 (vl-string-subst "" "\n" txt1))
   )
   (princ txt1)
)
  )
  (setvar "cmdecho" 1)
  (princ)
)

wzg356 · 发表于 2020-12-11 18:49:39

本帖最后由 wzg356 于 2020-12-11 18:52 编辑

把函数Mtext2Lstr加载后

分别在命令行执行下面两句（复制好后粘贴在命令行--回车------选择多行文本）

(apply 'strcat (Mtext2Lstr(car(entsel))))

(Mtext2Lstr(car(entsel)))

看命令行返回结果

wzg356 · 发表于 2020-12-9 19:30:40

本帖最后由 wzg356 于 2020-12-9 19:31 编辑

替换，一个不留
(while
(vl-string-search oldstr str)
(setq str (vl-string-subst newstr oldstr str))
)

wgij007 · 发表于 2020-12-9 23:19:35

wzg356 发表于 2020-12-9 19:30
替换，一个不留
(while
(vl-string-search oldstr str)

老大，运行一下是错误的

wgij007 · 发表于 2020-12-10 08:52:38

wzg356 发表于 2020-12-9 19:30
替换，一个不留
(while
(vl-string-search oldstr str)

老大，能帮完善一下吗

菜卷鱼 · 发表于 2020-12-10 09:31:17

wgij007 发表于 2020-12-10 08:52
老大，能帮完善一下吗

你这金牌会员水分有点多啊
(vl-string-subst "" "\\P" str)

wgij007 · 发表于 2020-12-10 11:16:22

菜卷鱼发表于 2020-12-10 09:31
你这金牌会员水分有点多啊
(vl-string-subst "" "\\P" str)

是很水，刚学。也是不行呀

lee50310 · 发表于 2020-12-10 12:02:13

本帖最后由 lee50310 于 2020-12-10 13:39 编辑

请问如何去除多行文字里的换行符

剛寫好試試這個

wgij007 · 发表于 2020-12-10 12:36:50

lee50310 发表于 2020-12-10 12:02
剛寫好試試這個

兄弟，这个把格式也变了，这种论坛的有找到。还是感谢回复.

Bao_lai · 发表于 2020-12-10 13:20:09

直接炸开为单行

wgij007 · 发表于 2020-12-10 13:30:15

Bao_lai 发表于 2020-12-10 13:20
直接炸开为单行

只是去掉/P 就像Shift+Enter 换行一样.多行文字样式不变。

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

[提问] 请问如何去除多行文字里的换行符

本帖子中包含更多资源

本帖子中包含更多资源