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

wgij007

顶一下

wgij007

没为法吗

wgij007

带点希望的顶一下

wgij007

再顶一下

vitalgg

一定要注意程序中说明的条件。下面这是有多个空格且有自定义格式的字串样例，需要分析这个；到} 之间都是空格或<TAB>之类的无显示字串。
{\fVerdana|b0|i0|c0|p34;  }

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 ()  ;;"去多行文本最后一行的空格(只有一个空格，多了还得改,还有最后的空格不能有自己样式。就是一个纯空格)"
    
14.   (setq en0 (car (entsel)))
    
15.   (setq strlst (string:to-lst (cdr (assoc 1 (entget en0))) "\\P"))
    
16.   (if (= " " (last strlst))
    
17.          (entmod
    
18.           (subst
    
19.            (cons 1 (string:from-lst (reverse (cdr (reverse strlst))) "\\P"))
    
20.            (assoc 1 (entget en0)) (entget en0)))))
    
21. (defun c:tt () (remove-mtext-lastspace))
    

(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 ()  ;;"去多行文本最后一行的空格(只有一个空格，多了还得改,还有最后的空格不能有自己样式。就是一个纯空格)"<br />   (setq en0 (car (entsel)))<br />   (setq strlst (string:to-lst (cdr (assoc 1 (entget en0))) "\\P"))<br />   (if (= " " (last strlst))<br />          (entmod<br />           (subst <br />            (cons 1 (string:from-lst (reverse (cdr (reverse strlst))) "\\P"))<br />            (assoc 1 (entget en0)) (entget en0)))))<br /> (defun c:tt () (remove-mtext-lastspace))<br />

ninja37

顶一下

wgij007

vitalgg 发表于 2021-3-1 19:10
一定要注意程序中说明的条件。下面这是有多个空格且有自定义格式的字串样例，需要分析这个；到} 之间都是空 ...

不行，没作用

vitalgg

wgij007 发表于 2021-3-4 17:50
不行，没作用

运行条件不一样。

wgij007

vitalgg 发表于 2021-3-4 18:05
运行条件不一样。

我用的是06版的，是不是这个问题呀

lee50310

試試這個程式

2. 
   
3. 
   
4. (defun c:tt ()
   
5.                (vl-load-com)
   
6.                (setq ss  (ssget  '((0 . "MTEXT"))))
   
7.        (repeat (setq i   (sslength ss))           
   
8.            (setq ssn (ssname ss (setq i(1- i)))
   
9.                   entdat (entget ssn)
   
10.                     txt  (cdr (assoc 1 entdat))                         ;讀取文字內容
    
11.               txt2  txt
    
12.             old_t "\\P"
    
13.             new_t " "
    
14.                )
    
15.    
    
16.             (while (vl-string-search "\\P" txt)                       ;判斷是否還有換行符號
    
17.                (setq txt(vl-string-subst new_t old_t txt))        ;去掉字串內的換行符號
    
18.         )
    
19.                                                                            
    
20.               (setq new_txt( cons 1 txt))     
    
21.               (setq old_txt( cons 1 txt2))
    
22.         (setq entdat (subst new_txt old_txt entdat))          ;更新資料串列
    
23.               (entmod entdat)                                           ;更新螢幕上的元體
    
24.        )        
    
25.               (princ)
    
26. )
    
27. 
    

<br /> <br /> (defun c:tt ()<br />                (vl-load-com)<br />                (setq ss  (ssget  '((0 . "MTEXT"))))<br />        (repeat (setq i   (sslength ss))           <br />            (setq ssn (ssname ss (setq i(1- i)))<br />                   entdat (entget ssn)<br />                     txt  (cdr (assoc 1 entdat))                         ;讀取文字內容<br />               txt2  txt<br />             old_t "\\P"<br />             new_t " "<br />                )<br />    <br />             (while (vl-string-search "\\P" txt)                       ;判斷是否還有換行符號<br />                (setq txt(vl-string-subst new_t old_t txt))        ;去掉字串內的換行符號<br />         )<br />                                                                             <br />               (setq new_txt( cons 1 txt))     <br />               (setq old_txt( cons 1 txt2)) <br />         (setq entdat (subst new_txt old_txt entdat))          ;更新資料串列<br />               (entmod entdat)                                           ;更新螢幕上的元體 <br />        )        <br />               (princ)<br /> )<br /> <br />