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

叮咚

D:\下载\1.gif
GIFhttps://share.weiyun.com/8UtuMrIF
VLX文件
https://share.weiyun.com/T19PTR20

cshimao

试试这个
(DEFUN C:MKG ()
  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")
  (IF (SETQ SS (ssget '((-4 . "<and")(0 . "MTEXT")(1 . "*\\P\\P*")(-4 . "and>"))))
    (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\\P" AA)             ;; 搜索指定字符串位置，0开始,即空行还在
          (SETQ AA (vl-string-subst "\\P" "\\P\\P" AA))   ;; 则用"\\P"替换"\\P\\P"
          (SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
          (ENTMOD ENT)
        )
      )
    )
  )
  (PRINC)
)

wgij007

cshimao 发表于 2021-3-5 16:53
试试这个
(DEFUN C:MKG ()
  (VL-LOAD-COM)

附件放在1楼了，没有换行符的，麻烦下载看看能不能解决。感激

vitalgg

自己试一下吧，因为 2016 会直接把最后那个空行删除了。（至少我这里是这样的)

1. (defun string:from-lst(lst Separator)  "列表转成字符串"
   
2.   (if (cdr lst)
   
3.       (strcat (car lst) Separator (string:from-lst (cdr lst) Separator))
   
4.       (car lst)))
   
5. 
   
6. (defun string:to-lst (str Separator / pos)
   
7.   "字符串转成列表"
   
8.   (if (setq pos (vl-string-search Separator str))
   
9.       (cons (substr str 1 pos)
   
10.             (string:to-lst (substr str (+ pos 1 (strlen Separator))) Separator))
    
11.       (list str)))
    
12. 
    
13. (defun remove-mtext-lastspace (en0)  ;;"去多行文本最后一行的空格(只有一个空格，多了还得改,还有最后的空格不能有自己样式。就是一个纯空格)"
    
14.   (setq strlst (string:to-lst (cdr (assoc 1 (entget en0))) "\\n"))
    
15.   (if (or (= " " (last strlst))
    
16.           (= "" (last strlst)))
    
17.       (progn
    
18.          (entmod
    
19.           (subst
    
20.            (cons 1 (string:from-lst (reverse (cdr (reverse strlst))) "\\n"))
    
21.            (assoc 1 (entget en0)) (entget en0)))
    
22.          (entupd en0)
    
23.          )
    
24.       ))
    
25. (defun c:tt (/ i% ss-mtext)
    
26.   (setq ss-mtext (ssget '((0 . "MTEXT"))))
    
27.   (setq i% 0)
    
28.   (while (< i% (sslength ss-mtext))
    
29.     (remove-mtext-lastspace (ssname ss-mtext i%))
    
30.     (setq i% (1+ i%))))

(defun string:from-lst(lst Separator)  "列表转成字符串"<br />   (if (cdr lst)<br />       (strcat (car lst) Separator (string:from-lst (cdr lst) Separator))<br />       (car lst)))<br /> <br /> (defun string:to-lst (str Separator / pos)<br />   "字符串转成列表"<br />   (if (setq pos (vl-string-search Separator str))<br />       (cons (substr str 1 pos)<br />             (string:to-lst (substr str (+ pos 1 (strlen Separator))) Separator))<br />       (list str)))<br /> <br /> (defun remove-mtext-lastspace (en0)  ;;"去多行文本最后一行的空格(只有一个空格，多了还得改,还有最后的空格不能有自己样式。就是一个纯空格)"<br />   (setq strlst (string:to-lst (cdr (assoc 1 (entget en0))) "\\n"))<br />   (if (or (= " " (last strlst))<br />           (= "" (last strlst)))<br />       (progn <br />          (entmod<br />           (subst <br />            (cons 1 (string:from-lst (reverse (cdr (reverse strlst))) "\\n"))<br />            (assoc 1 (entget en0)) (entget en0)))<br />          (entupd en0)<br />          )<br />       ))<br /> (defun c:tt (/ i% ss-mtext)<br />   (setq ss-mtext (ssget '((0 . "MTEXT"))))<br />   (setq i% 0)<br />   (while (< i% (sslength ss-mtext))<br />     (remove-mtext-lastspace (ssname ss-mtext i%))<br />     (setq i% (1+ i%))))

wgij007

vitalgg 发表于 2021-3-6 10:45
自己试一下吧，因为 2016 会直接把最后那个空行删除了。（至少我这里是这样的)

不行呀

cshimao

把\\p换成\n就可以了，在CAD06上试试
(DEFUN C:MKG ()
  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")
  (IF (SETQ SS (ssget '((-4 . "<and")(0 . "MTEXT")(1 . "*\n\n*")(-4 . "and>"))))
    (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 "\n\n" AA)             ;; 搜索指定字符串位置，0开始,即空行

还在
          (SETQ AA (vl-string-subst "\n" "\n\n" AA))   ;; 则用"\n"替换"\n\n"
          (SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
          (ENTMOD ENT)
        )
      )
    )
  )
  (PRINC)
)

wgij007

cshimao 发表于 2021-3-9 08:14
把\\p换成\n就可以了，在CAD06上试试
(DEFUN C:MKG ()
  (VL-LOAD-COM)

不能选中，怎么回事？

cshimao

把多行文字的最后换行符删除即可，即"12546\ncfgr\n12489\ndsyso\n"->"12546\ncfgr\n12489\ndsyso"
(DEFUN C:MKH ()
  (defun I:StrRightTrim
            (TrimStr    ; string to trim out
             FullStr    ; string to trim from
             /        ; local variables
             lenStr        ; length of full string
             lenTrim    ; length of trim string
) ;_ closes variable declare
    (if
      (and                ; if still enough string to search
    (> (setq lenStr (strlen FullStr))
       (setq lenTrim (strlen TrimStr))
    ) ;_ closes >
    (not                ; and not too far
      (wcmatch FullStr (strcat "*" TrimStr))
    ) ;_ closes not
      ) ;_ closes and
       (I:StrRightTrim            ; then go futher
     TrimStr
     (substr FullStr 1 (1- (strlen FullStr)))
       ) ;_ closes I:StrRightTrim
       (if (> lenStr lenTrim)        ; else if found
     (substr FullStr 1 (- lenStr lenTrim)) ; return trimmed str
     nil                ; else return nil
       ) ;_ closes if
    ) ;_ closes if
  ) ;_ closes

  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")
  (IF (SETQ
    SS (ssget
         '((-4 . "<and") (0 . "MTEXT") (1 . "*\n") (-4 . "and>"))
       )
      )
    (PROGN
      (SETQ I -1)
      (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
          AA  (CDR (ASSOC 1 ENT))
    )
    (setq AA (I:STRRIGHTTRIM "\n" AA))
    (SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
    (ENTMOD ENT)
                    ;)
      )
    )
  )
  (PRINC)
)

845245015

(DEFUN C:MKG ()
  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")
  (IF (SETQ SS (ssget '((-4 . "<and")(0 . "MTEXT")(1 . "*\n")(-4 . "and>"))))
    (PROGN
      (SETQ I -1)
      (REPEAT (SSLENGTH SS)
        (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
              AA  (CDR (ASSOC 1 ENT))
              )
        (SETQ AA (vl-string-right-trim "\n" AA))
        (SETQ ENT (SUBST (CONS 1 AA) (ASSOC 1 ENT) ENT))
        (ENTMOD ENT)
      )
    )
  )
  (PRINC)
)

cshimao

845245015 发表于 2021-3-9 11:27
(DEFUN C:MKG ()
  (VL-LOAD-COM)
  (PRINC "\Select Text(s) 选择文字 :")

用自带函数vl-string-right-trim，简洁。