求一代码

wgij007

把多行文本的格式改一下,4行删最后一行.要框选(多行文本没有换行符的)。同时处理多个。
http://bbs.mjtd.com/thread-182786-1-1.html 这程序处理过的 最后一行最前面第一个字都是最


utyh 258
1 Pli
447-8po
最2548 587 m2



改为

utyh 258 1 Pli 447-8po

bssurvey

wgij007 发表于 2021-1-22 19:00
麻烦你下一下了。
https://pan.baidu.com/s/1HexnYCK5r2znUcwW05LAyQ
提取码:yods

請您測試一下
(defun c:tt ()
        (vl-load-com)
        (setq ss (ssget  '((0 . "MTEXT"))))
        (setq slen (sslength ss))
        (setq n 0)
        (while (< n slen)
                (setq ssn (ssname ss n))
                (setq entdat (entget ssn))
                (setq pt  (cdr (assoc 10 entdat))       ;读取文字的插入点坐标
              txt (cdr (assoc 1 entdat))        ;读取文字内容
              zg  (cdr (assoc 40 entdat))       ;读取文字的字高
              zg1  (cdr (assoc 71 entdat))
              lay1  (cdr (assoc 8 entdat))
              st1  (cdr (assoc 7 entdat)))
              (setq ftxt (substr txt 1 (vl-string-search "\n" txt)))     ;第一行
                (setq a1 (strlen ftxt))
                (setq txt (substr txt (+ 2 a1)))
                (setq gtxt (substr txt 1 (vl-string-search "\n" txt)))     ;第二行
                (setq a2 (strlen gtxt))
                (setq txt (substr txt (+ 2 a2)))
                (setq htxt (substr txt 1 (vl-string-search "\n" txt)))     ;第三行
                (setq result (strcat ftxt" " gtxt " " htxt))                                ;合并前三行
                (entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText") (cons 7 st1) (cons 1 result) (cons 10 pt)(cons 40 zg)(cons 71 zg1)(cons 8 lay1)))    ;创建多行文字
                (entdel ssn)                ;删除原多行文字
                (setq n (+ 1 n))                                                                                                                                            
        )
(princ)
)

insufficient

1. (defun c:tt ()
   
2.         (setq ss (ssget  '((0 . "MTEXT"))))
   
3.         (setq slen (sslength ss))
   
4.         (setq n 0)
   
5. 
   
6.         (while (< n slen)
   
7.                 (setq ssn (ssname ss n))
   
8.                 (setq entdat (entget ssn))
   
9.                 (setq pt  (cdr (assoc 10 entdat))       ;读取文字的插入点坐标
   
10.               txt (cdr (assoc 1 entdat))        ;读取文字内容
    
11.               zg  (cdr (assoc 40 entdat)))      ;读取文字的字高
    
12. 
    
13.                 (setq i 1 ftxt "")
    
14.                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))
    
15.                         (setq ftxt (strcat ftxt tmp) i (1+ i))
    
16.                 )
    
17.                 (princ ftxt)    ;第一行
    
18. 
    
19.                 (setq a1 (strlen ftxt))
    
20.                 (setq txt (substr txt (+ 3 a1)))
    
21.                 (setq i 1 gtxt "")
    
22.                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))
    
23.                         (setq gtxt (strcat gtxt tmp) i (1+ i))
    
24.                 )
    
25.                 (princ gtxt)    ;第二行
    
26. 
    
27.                 (setq a2 (strlen gtxt))
    
28.                 (setq txt (substr txt (+ 3 a2)))
    
29.                 (setq i 1 htxt "")
    
30.                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))
    
31.                         (setq htxt (strcat htxt tmp) i (1+ i))
    
32.                 )
    
33.                 (princ htxt)    ;第三行
    
34. 
    
35.                 (setq result (strcat ftxt" " gtxt " " htxt))    ;合并前三行
    
36.                
    
37.                 (entmake (list '(0 . "TEXT") (cons 1 result) (cons 10 pt) (cons 40 zg)))
    
38.                 (entdel ssn)
    
39. 
    
40.                 (setq n (+ 1 n))
    
41.         )
    
42. (princ)
    
43. )

(defun c:tt ()<br />         (setq ss (ssget  '((0 . "MTEXT"))))<br />         (setq slen (sslength ss))<br />         (setq n 0)<br /> <br />         (while (< n slen)<br />                 (setq ssn (ssname ss n))<br />                 (setq entdat (entget ssn))<br />                 (setq pt  (cdr (assoc 10 entdat))       ;读取文字的插入点坐标<br />               txt (cdr (assoc 1 entdat))        ;读取文字内容<br />               zg  (cdr (assoc 40 entdat)))      ;读取文字的字高<br /> <br />                 (setq i 1 ftxt "")<br />                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))<br />                         (setq ftxt (strcat ftxt tmp) i (1+ i))<br />                 )<br />                 (princ ftxt)    ;第一行<br /> <br />                 (setq a1 (strlen ftxt))<br />                 (setq txt (substr txt (+ 3 a1)))<br />                 (setq i 1 gtxt "")<br />                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))<br />                         (setq gtxt (strcat gtxt tmp) i (1+ i))<br />                 )<br />                 (princ gtxt)    ;第二行<br /> <br />                 (setq a2 (strlen gtxt))<br />                 (setq txt (substr txt (+ 3 a2)))<br />                 (setq i 1 htxt "")<br />                 (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))<br />                         (setq htxt (strcat htxt tmp) i (1+ i))<br />                 )<br />                 (princ htxt)    ;第三行<br /> <br />                 (setq result (strcat ftxt" " gtxt " " htxt))    ;合并前三行<br />                 <br />                 (entmake (list '(0 . "TEXT") (cons 1 result) (cons 10 pt) (cons 40 zg)))<br />                 (entdel ssn)<br /> <br />                 (setq n (+ 1 n))<br />         )<br /> (princ)<br /> )

就你所提的要求简单写了下，如果需要更改为更宽的应用场景再做修改调整

insufficient

1. (defun c:tt ()
   
2.         (vl-load-com)
   
3.         (setq ss (ssget  '((0 . "MTEXT"))))
   
4.         (setq slen (sslength ss))
   
5.         (setq n 0)
   
6. 
   
7.         (while (< n slen)
   
8.                 (setq ssn (ssname ss n))
   
9.                 (setq entdat (entget ssn))
   
10.                 (setq pt  (cdr (assoc 10 entdat))       ;读取文字的插入点坐标
    
11.               txt (cdr (assoc 1 entdat))        ;读取文字内容
    
12.               zg  (cdr (assoc 40 entdat)))      ;读取文字的字高
    
13. 
    
14.                 (setq ftxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第一行
    
15. 
    
16.                 (setq a1 (strlen ftxt))
    
17.                 (setq txt (substr txt (+ 3 a1)))
    
18.                 (setq gtxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第二行
    
19. 
    
20.                 (setq a2 (strlen gtxt))
    
21.                 (setq txt (substr txt (+ 3 a2)))
    
22.                 (setq htxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第二行
    
23. 
    
24.                 (setq result (strcat ftxt" " gtxt " " htxt))                                ;合并前三行
    
25.                
    
26.                 (entmake (list '(0 . "TEXT") (cons 1 result) (cons 10 pt) (cons 40 zg)))                ;创建单行文字
    
27.                 (entdel ssn)                ;删除原多行文字
    
28. 
    
29.                 (setq n (+ 1 n))
    
30.         )
    
31. (princ)
    
32. )

(defun c:tt ()<br />         (vl-load-com)<br />         (setq ss (ssget  '((0 . "MTEXT"))))<br />         (setq slen (sslength ss))<br />         (setq n 0)<br /> <br />         (while (< n slen)<br />                 (setq ssn (ssname ss n))<br />                 (setq entdat (entget ssn))<br />                 (setq pt  (cdr (assoc 10 entdat))       ;读取文字的插入点坐标<br />               txt (cdr (assoc 1 entdat))        ;读取文字内容<br />               zg  (cdr (assoc 40 entdat)))      ;读取文字的字高<br /> <br />                 (setq ftxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第一行<br /> <br />                 (setq a1 (strlen ftxt))<br />                 (setq txt (substr txt (+ 3 a1)))<br />                 (setq gtxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第二行<br /> <br />                 (setq a2 (strlen gtxt))<br />                 (setq txt (substr txt (+ 3 a2)))<br />                 (setq htxt (substr txt 1 (vl-string-search "\\P" txt)))     ;第二行<br /> <br />                 (setq result (strcat ftxt" " gtxt " " htxt))                                ;合并前三行<br />                 <br />                 (entmake (list '(0 . "TEXT") (cons 1 result) (cons 10 pt) (cons 40 zg)))                ;创建单行文字<br />                 (entdel ssn)                ;删除原多行文字<br /> <br />                 (setq n (+ 1 n))<br />         )<br /> (princ)<br /> )

修改了一下

wgij007

insufficient 发表于 2021-1-18 16:24
修改了一下

有点问题，我的多行文本是去了换行符的。
显视
utyh 258
              1 Pli
                       447-8po
                                   最2548 587 mm2   

不能上传，好麻烦呀

insufficient

wgij007 发表于 2021-1-19 08:27
有点问题，我的多行文本是去了换行符的。
显视
utyh 258

你的多行文本都是这种格式吗？  又没有什么规律  比如说：是否前面需要保留的字符数恒定？或者所有多行文字都是要去除“最”字之后的字符？

wgij007

insufficient 发表于 2021-1-19 08:39
你的多行文本都是这种格式吗？  又没有什么规律  比如说：是否前面需要保留的字符数恒定？或者所有多行文 ...

是的，都没有换行符的

http://bbs.mjtd.com/thread-182786-1-1.html

都是转后的格式

bssurvey

wgij007 发表于 2021-1-19 15:07
是的，都没有换行符的

http://bbs.mjtd.com/thread-182786-1-1.html

可以用insufficient的LISP 把"\\P"改成"\n"試試

wgij007

bssurvey 发表于 2021-1-20 11:13
可以用insufficient的LISP 把"\\P"改成"\n"試試

还是不行，一样的

wgij007

可能去了换行符没标识就不好搞了