<<*** 批量多行文字刪除第一行轉單行文字 ***>>

lee50310

原請求帖:
http://bbs.mjtd.com/thread-187536-1-1.html
程式要求: (1)框選指定對象 (2)只處理 "TechnicExplain" 圖層 上的多行文字
               (3)刪除第一行。 (4)轉換成單行文字


執行指令:tt2
執行效果:如動態圖所示

lee50310

bai2000 发表于 2023-4-6 18:36
很不错，但是不需要 “(3)刪除第一行“的功能，怎么改。最好图层点选，更通用一点

            (princ "\n批量選擇要轉換的多行文字 : ")               
            (setq ss(ssget (list (cons 0 "MTEXT") (cons 8 "TechnicExplain")) ))  ;過濾多行文字及圖層


指定圖層 可修改程式中 (cons 8 "TechnicExplain") 將 "TechnicExplain"圖層名 改成你要的圖層名 例: "temp"

           (princ "\n批量選擇要轉換的多行文字 : ")               
            (setq ss(ssget (list (cons 0 "MTEXT") (cons 8 "temp")) ))  ;過濾多行文字及圖層


刪除第一行是原主的要求
若不要刪除第一行  那 只剩 多行文字轉 單行文字
只需將程式中 此處修改成下面樣式即可

1. (if (eq (vla-get-objectname obj) "AcDbMText")
   
2.       (progn
   
3. 
   
4. ;|-------此段以下當作註解*****
   
5.       (setq b1(rh:regexp "\\\\[P]" (vla-get-TextString obj) "")) ;取出文字串 例: b1="底板\tA05 底板: 1300x480x16=1"
   
6.     (setq tn (strlen b1))                                      ;字串長度
   
7.         (if (setq k(vl-string-position (ascii "\t") b1 0 T) )      ;換行符號 "/t" ,vl-string-position ==> 字串字數從0開始數到 換行符號 "\t" 的長度
   
8.         (setq b2(substr b1 (+ k 2) tn))                        ;刪除文字串第一行 "底板" , b2= "A05 底板: 1300x480x16=1"
   
9.       (setq b2 b1)                                           ;沒有找到回原字串
   
10.          );end_if
    
11.      
    
12.         (vla-put-TextString obj b2)                                ;更新文字串
    
13. |; -------此段以上當作註解******
    
14. 
    
15.         (vl-cmdf "explode" ent )                                   ;分解成單行文字
    
16.     (setq data(entget (entlast)))
    
17.     (setq op_ip(assoc 10 data))
    
18.     (setq data(subst np_ip op_ip data))                       ;換插入點為左下點
    
19.     (entmod data)
    
20.    
    
21.       );end_progn
    
22.       (alert "不是多行文字實體")
    
23.     );end_if

(if (eq (vla-get-objectname obj) "AcDbMText")<br />       (progn<br /> <br /> ;|-------此段以下當作註解*****<br />       (setq b1(rh:regexp "\\\\[P]" (vla-get-TextString obj) "")) ;取出文字串 例: b1="底板\tA05 底板: 1300x480x16=1"<br />     (setq tn (strlen b1))                                      ;字串長度<br />         (if (setq k(vl-string-position (ascii "\t") b1 0 T) )      ;換行符號 "/t" ,vl-string-position ==> 字串字數從0開始數到 換行符號 "\t" 的長度 <br />         (setq b2(substr b1 (+ k 2) tn))                        ;刪除文字串第一行 "底板" , b2= "A05 底板: 1300x480x16=1"<br />       (setq b2 b1)                                           ;沒有找到回原字串<br />          );end_if<br />      <br />         (vla-put-TextString obj b2)                                ;更新文字串<br /> |; -------此段以上當作註解******<br /> <br />         (vl-cmdf "explode" ent )                                   ;分解成單行文字<br />     (setq data(entget (entlast)))<br />     (setq op_ip(assoc 10 data))<br />     (setq data(subst np_ip op_ip data))                       ;換插入點為左下點<br />     (entmod data)<br />     <br />       );end_progn<br />       (alert "不是多行文字實體")<br />     );end_if

lee50310

hhjjwww 发表于 2023-10-17 06:58
这个正需要，谢了。另外，有办法指定删除特定行吗，例如3行里的第二行？

[程式:多行文字轉單行文字並刪除指定的行 ]
執行指令:tt
            1.選擇一個多行文字:
            2.輸入要刪除第幾行:

修正版 ttb2_chs.lsp  ttb2_cht.lsp  ==> 修正dxf 錯誤   日期:版ˋ2023/10/18

hhjjwww

lee50310 发表于 2023-10-17 16:31
[程式:多行文字轉單行文字並刪除指定的行 ]
執行指令:tt
            1.選擇一個多行文字:

不错，可以用，准备后边想个办法能批量操作多个多行文字，谢谢！

lee50310

測試時  請下載 原請求帖所提供的測試圖檔測試

aws

点赞！！！

vlisp2012

多谢分享！！！！

panliang9

谢谢楼主分享！

paulpipi

挺好的程序

cyh3210573

谢谢分享，学习了

hzyhzjjzh

谢谢楼主分享！

bai2000

很不错，但是不需要 “(3)刪除第一行“的功能，怎么改。最好图层点选，更通用一点

白色微風1991

謝謝樓主分享！