可以去掉多行文字的空行吗，能框选

wgij007 · 发表于 2021-1-5 17:36:37

本帖最后由 wgij007 于 2021-3-5 22:52 编辑

可以去掉多行文字的空行吗，能框选.没有换行符的。
图片上传不了，就是最后多一个空行,相当于多一下回车换行，没内容。双击编辑没修改，确定。也会消失。用的是CAD2006.有些文本有空行，有些没有。框选，只是把有空行的去了空行。谢谢。

例：
https://pan.baidu.com/s/1TayP86Tv2Tk_z7icskMPFg 提取码： 2skm

xvjiex · 发表于 2021-1-5 17:36:38

本帖最后由 xvjiex 于 2021-3-8 12:37 编辑

我来解决。

bssurvey · 发表于 2021-1-6 08:12:31

請參閱http://bbs.mjtd.com/forum.php?mo ... 0%D0%D0%CE%C4%D7%D6 6樓 Gu_xl超級版主的帖謝謝

wgij007 · 发表于 2021-1-8 16:17:19

bssurvey 发表于 2021-1-6 08:12
請參閱http://bbs.mjtd.com/forum.php?mod=viewthread&tid=176645&highlight=%B6%E0%D0%D0%CE%C4%D7%D6 6樓 ...

搞不了呀

KO你 · 发表于 2021-1-9 03:40:29

本帖最后由 KO你于 2021-1-9 03:44 编辑

文字和文本都可以框先
快捷键 t- 文字去除空格
(DEFUN C:T- ()
(VL-LOAD-COM)
(PRINC "\Select Text(s) 选择文字 :")
(IF (SETQ SS (SSGET '((0 . "MTEXT,TEXT") (1 . "* *")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
AA (CDR (ASSOC 1 ENT)))
(WHILE (vl-string-search " " AA)
(SETQ AA (vl-string-subst "" " " AA)))
(SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
(ENTMOD ENT))))
(PRINC))
这是去空格的，可以自己修改一下

wgij007 · 发表于 2021-1-9 14:15:10

KO你发表于 2021-1-9 03:40
文字和文本都可以框先
快捷键 t- 文字去除空格
(DEFUN C:T- ()

你好，你这个是去了文本里的空格，我要的是去掉多行文本最后多了一行空行，没内容的。编辑时会看到，就是按回车到下一行那样。

bssurvey · 发表于 2021-1-11 11:55:10

wgij007 发表于 2021-1-9 14:15
你好，你这个是去了文本里的空格，我要的是去掉多行文本最后多了一行空行，没内容的。编辑时会看到，就是 ...

(DEFUN C:T- ()
  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")
  (IF (SETQ SS (SSGET '((0 . "MTEXT,TEXT") (1 . "*\\P*"))))
(PROGN
   (SETQ I -1)
   (REPEAT (SSLENGTH SS)
      (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
            AA (CDR (ASSOC 1 ENT)))
      (WHILE (vl-string-search "\\P" AA)
      (SETQ AA (vl-string-subst "" "\\P" AA))
      (SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
      (ENTMOD ENT)
      )
   )
)
  )
  (PRINC)
)
試試看可不可以

KO你 · 发表于 2021-1-12 08:13:10

bssurvey 发表于 2021-1-11 11:55
(DEFUN C:T- ()
(VL-LOAD-COM) ...

你这个是把所有的行都减去了，而不是去空行

wgij007 · 发表于 2021-1-13 10:35:01

这个好难呀

香远益清 · 发表于 2021-1-13 11:15:02

KO你发表于 2021-1-9 03:40
文字和文本都可以框先
快捷键 t- 文字去除空格
(DEFUN C:T- ()

试用了，很好，很实用，在文字排版处理上效果不错。

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

[提问] 可以去掉多行文字的空行吗，能框选

最佳答案

本帖子中包含更多资源