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

wgij007 · 发表于 2020-12-10 15:33:55

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

大师，能不能做到的

wzg356 · 发表于 2020-12-10 19:25:00

wgij007 发表于 2020-12-10 15:33
大师，能不能做到的

多行文本不仅处理换行符，很多都需要处理。
直接用你上个问题我给你的第一个函数的结果（连接起来）不就行了吗，

wgij007 · 发表于 2020-12-10 22:32:06

wzg356 发表于 2020-12-10 19:25
多行文本不仅处理换行符，很多都需要处理。
直接用你上个问题我给你的第一个函数的结果（连接起来）不 ...

搞了一个晚上还是搞不了。

brainstorm · 发表于 2020-12-10 22:58:48

http://www.mjtd.com/forum.php?mod=viewthread&tid=179410&highlight=%B6%E0%D0%D0%CE%C4%D7%D6&mobile=2

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

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

把函数Mtext2Lstr加载后

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

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

(Mtext2Lstr(car(entsel)))

看命令行返回结果

czb203 · 发表于 2020-12-13 14:50:19

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

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

wudechao · 发表于 2020-12-13 16:39:02

本帖最后由 wudechao 于 2020-12-13 16:40 编辑

查多行文字的dxf就可以了。(1 . "4578\nwhi\njhgt\n1kl")

eechenchun · 发表于 2021-4-16 10:39:11

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

东西呢没看到啊

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

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