API应用 一个简易的文字替换

eachy

如将选中文字为下列文字中的任意组合替换为一个 string
"KZ3, KZ12, KZ21, KZ22, KZ23, KZ24, KZ25, KZ26, KZ30, KZ34, KZ42, KZ46, KZ47, KZ48, KZ49, KZ50, KZ51, KZ52, KZ53, KZ54, KZ55, KZ56, KZ57, KZ59, KZ62, KZ64, KZ65, KZ66, KZ69, KZ74, KZ78, KZ79, KZ80"

1. (defun c:tt (/ e str ss lst)
   
2.   (if (and (setq e (car (xdrx_entsel "\n选择要替换文字" '((0 . "text")))))
   
3.            (setq str (getstring "\nInput New String: "))
   
4.            (progn
   
5.              (princ "\n选择替换范围....")
   
6.              (setq ss (ssget '((0 . "text"))))
   
7.            )
   
8.       )
   
9.     (progn
   
10.       (setq lst        (xdrx_string_split
    
11.                   (xdrx_getpropertyvalue e "textstring")
    
12.                   ","
    
13.                 )
    
14.       )
    
15.       (mapcar '(lambda (x /)
    
16.                  (if (vl-some '(lambda (a) (vl-position a lst))
    
17.                               (xdrx_string_split
    
18.                                 (xdrx_getpropertyvalue x "textstring")
    
19.                                 ","
    
20.                               )
    
21.                      )
    
22.                    (xdrx_setpropertyvalue x "textstring" str)
    
23.                  )
    
24.                )
    
25.               (xdrx_pickset->ents ss)
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    

(defun c:tt (/ e str ss lst)<br />   (if (and (setq e (car (xdrx_entsel "\n选择要替换文字" '((0 . "text")))))<br />            (setq str (getstring "\nInput New String: "))<br />            (progn<br />              (princ "\n选择替换范围....")<br />              (setq ss (ssget '((0 . "text"))))<br />            )<br />       )<br />     (progn<br />       (setq lst        (xdrx_string_split<br />                   (xdrx_getpropertyvalue e "textstring")<br />                   ","<br />                 )<br />       )<br />       (mapcar '(lambda (x /)<br />                  (if (vl-some '(lambda (a) (vl-position a lst))<br />                               (xdrx_string_split<br />                                 (xdrx_getpropertyvalue x "textstring")<br />                                 ","<br />                               )<br />                      )<br />                    (xdrx_setpropertyvalue x "textstring" str)<br />                  )<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

楼国林

比如我需要将某一个文字替换为123那就只需要把代码中的string更换为123就可以了吗