可以去掉多行文字的空行吗，能框选
本帖最后由 wgij007 于 2021-3-5 22:52 编辑可以去掉多行文字的空行吗，能框选.没有换行符的。
图片上传不了，就是最后多一个空行,相当于多一下回车换行，没内容。双击编辑没修改，确定。也会消失。用的是CAD2006.有些文本有空行，有些没有。框选，只是把有空行的去了空行。谢谢。
例：
https://pan.baidu.com/s/1TayP86Tv2Tk_z7icskMPFg 提取码： 2skm
本帖最后由 xvjiex 于 2021-3-8 12:37 编辑
我来解决。
請參閱http://bbs.mjtd.com/forum.php?mod=viewthread&tid=176645&highlight=%B6%E0%D0%D0%CE%C4%D7%D6 6樓 Gu_xl超級版主的帖 謝謝 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: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))
这是去空格的，可以自己修改一下
KO你 发表于 2021-1-9 03:40
文字和文本都可以框先
快捷键t-文字去除空格
(DEFUN C:T- ()
你好，你这个是去了文本里的空格，我要的是去掉多行文本最后多了一行空行，没内容的。编辑时会看到，就是按回车到下一行那样。 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)
)
試試看可不可以 bssurvey 发表于 2021-1-11 11:55
(DEFUN C:T- ()
(VL-LOAD-COM) ...
你这个是把所有的行都减去了，而不是去空行 这个好难呀 KO你 发表于 2021-1-9 03:40
文字和文本都可以框先
快捷键t-文字去除空格
(DEFUN C:T- ()
试用了，很好，很实用，在文字排版处理上效果不错。