去单行多行文字后缀（支持统配符*）

newer

统配符用*

1. (defun c:tt ()
   
2.   (if (and (/= "" (setq pofix (getstring "\n输入后缀<退出>:")))
   
3.            (xdrx_initssget "选择单多行文字<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "*text"))))
   
5.       )
   
6.     (progn
   
7.       (xdrx_begin)
   
8.       (mapcar '(lambda (x)
   
9.                  (if (xdrx_object_isa x "AcDbText")
   
10.                    (setq txt (xdrx_getpropertyvalue x "textstring"))
    
11.                    (setq txt (xdrx_getpropertyvalue x "contents"))
    
12.                  )
    
13.                  (setq txt (xdrx_string_regexpr
    
14.                               (setq
    
15.                                 m (strcat (xdrx_string_replace pofix "*" ".*")
    
16.                                           "(?=\\p|$)"
    
17.                                   )
    
18.                               )
    
19.                               txt
    
20.                               ""
    
21.                             )
    
22.                  )
    
23.                  (xdrx_setpropertyvalue x "textstring" txt)
    
24.                )
    
25.               (xdrx_pickset->ents ss)
    
26.       )
    
27.       (xdrx_end)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:tt ()<br />   (if (and (/= "" (setq pofix (getstring "\n输入后缀<退出>:")))<br />            (xdrx_initssget "选择单多行文字<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*text"))))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (mapcar '(lambda (x)<br />                  (if (xdrx_object_isa x "AcDbText")<br />                    (setq txt (xdrx_getpropertyvalue x "textstring"))<br />                    (setq txt (xdrx_getpropertyvalue x "contents"))<br />                  )<br />                  (setq txt (xdrx_string_regexpr<br />                               (setq<br />                                 m (strcat (xdrx_string_replace pofix "*" ".*")<br />                                           "(?=\\p|$)"<br />                                   )<br />                               )<br />                               txt<br />                               ""<br />                             )<br />                  )<br />                  (xdrx_setpropertyvalue x "textstring" txt)<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

dyjwyqz5221

不错不错真不错

追风lisp

谢谢分享，学习了