批量文本查找和替换

yhly555

2. ;;; 文本批量替换根据cabinsummer程序整理。
   
3. (defun c:PLLISP (/ ct0 ct1 ct2 edata etext newch newtext oldch readch schct ssl sstxt subln txtln)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq list1 (list "172.00-76.00" "172.00-77.00" "171.20-76.00" "171.20-77.00" "170.40-76.00" "170.40-77.00" "169.60-76.00" "169.60-77.00" "169.60-78.00" "168.80-76.00" "168.80-77.00" "168.80-78.00" "168.00-76.00" "168.00-77.00" "168.00-78.00" "167.20-75.00" "167.20-76.00" "167.20-77.00" "167.20-78.00" "166.40-77.00" "166.40-78.00" "166.40-79.00" "165.60-77.00" "164.80-77.00" "164.00-78.00"))
   
6.   (setq list2 (list "I02160077" "I02160078" "I02150077" "I02150078" "I02140077" "I02140078" "I02130077" "I02130078" "I02130079" "I02120077" "I02120078" "I02120079" "I02110077" "I02110078" "I02110079" "I02100076" "I02100077" "I02100078" "I02100079" "I02090078" "I02090079" "I02090080" "I02080078" "I02070078" "I02060079"))
   
7.   (setq n 0)
   
8.   (setq m (length list1))  ;返回表中的元素的个数
   
9.   (while (< n m)
   
10.   (setq oldch (nth n list1)                ; 要查找的文本内容，自己修改
    
11.         newch (nth n list2)              ; 要替换的文本内容，自己修改
    
12.   )
    
13.   (if (and
    
14.         (/= "" oldch)
    
15.         (/= oldch newch)
    
16.         (setq sstxt (ssget "x" '((0 . "*TEXT"))));选择所有数据
    
17.       )
    
18.     (progn
    
19.       (setq ssl (sslength sstxt) ;求出一个选择集中的对象（图元）数目，并将其作为一个整数返回
    
20.             ct0 0
    
21.             ct1 0
    
22.             ct2 0
    
23.             subln (strlen oldch)
    
24.       )
    
25.       (while (< ct0 ssl)
    
26.         (setq edata (entget (ssname sstxt ct0))
    
27.               etext (cdr (assoc 1 edata))
    
28.               txtln (strlen etext)
    
29.               schct 1
    
30.               newtext ""
    
31.         )
    
32.         (while (<= schct txtln)
    
33.           (setq newtext (strcat newtext (if (= (setq readch (substr etext schct subln))
    
34.                                                oldch
    
35.                                             )
    
36.                                           (setq ct1 (1+ ct1)
    
37.                                                 schct (+ schct subln)
    
38.                                                 newch newch
    
39.                                           )
    
40.                                           (progn
    
41.                                             (setq schct (1+ schct))
    
42.                                             (substr readch 1 1)
    
43.                                           )
    
44.                                         )
    
45.                         )
    
46.           )
    
47.         )
    
48.         (if (/= etext newtext)
    
49.           (progn
    
50.             (entmod (subst
    
51.                       (cons 1 newtext)
    
52.                       (assoc 1 edata)
    
53.                       edata
    
54.                     )
    
55.             )
    
56.             (setq ct2 (1+ ct2))
    
57.           )
    
58.         )
    
59.         (setq ct0 (1+ ct0))
    
60.       )
    
61.     )
    
62.   )
    
63.   (setq n (1+n))
    
64.   )
    
65.   (princ)
    
66. )
    

;;; 文本批量替换根据cabinsummer程序整理。<br /> (defun c:PLLISP (/ ct0 ct1 ct2 edata etext newch newtext oldch readch schct ssl sstxt subln txtln)<br />   (setvar "cmdecho" 0)<br />   (setq list1 (list "172.00-76.00" "172.00-77.00" "171.20-76.00" "171.20-77.00" "170.40-76.00" "170.40-77.00" "169.60-76.00" "169.60-77.00" "169.60-78.00" "168.80-76.00" "168.80-77.00" "168.80-78.00" "168.00-76.00" "168.00-77.00" "168.00-78.00" "167.20-75.00" "167.20-76.00" "167.20-77.00" "167.20-78.00" "166.40-77.00" "166.40-78.00" "166.40-79.00" "165.60-77.00" "164.80-77.00" "164.00-78.00"))<br />   (setq list2 (list "I02160077" "I02160078" "I02150077" "I02150078" "I02140077" "I02140078" "I02130077" "I02130078" "I02130079" "I02120077" "I02120078" "I02120079" "I02110077" "I02110078" "I02110079" "I02100076" "I02100077" "I02100078" "I02100079" "I02090078" "I02090079" "I02090080" "I02080078" "I02070078" "I02060079"))<br />   (setq n 0)<br />   (setq m (length list1))  ;返回表中的元素的个数<br />   (while (< n m)<br />   (setq oldch (nth n list1)                ; 要查找的文本内容，自己修改<br />         newch (nth n list2)              ; 要替换的文本内容，自己修改<br />   )<br />   (if (and<br />         (/= "" oldch)<br />         (/= oldch newch)<br />         (setq sstxt (ssget "x" '((0 . "*TEXT"))));选择所有数据<br />       )<br />     (progn<br />       (setq ssl (sslength sstxt) ;求出一个选择集中的对象（图元）数目，并将其作为一个整数返回<br />             ct0 0<br />             ct1 0<br />             ct2 0<br />             subln (strlen oldch)<br />       )<br />       (while (< ct0 ssl)<br />         (setq edata (entget (ssname sstxt ct0))<br />               etext (cdr (assoc 1 edata))<br />               txtln (strlen etext)<br />               schct 1<br />               newtext ""<br />         )<br />         (while (<= schct txtln)<br />           (setq newtext (strcat newtext (if (= (setq readch (substr etext schct subln))<br />                                                oldch<br />                                             )<br />                                           (setq ct1 (1+ ct1)<br />                                                 schct (+ schct subln)<br />                                                 newch newch<br />                                           )<br />                                           (progn<br />                                             (setq schct (1+ schct))<br />                                             (substr readch 1 1)<br />                                           )<br />                                         )<br />                         )<br />           )<br />         )<br />         (if (/= etext newtext)<br />           (progn<br />             (entmod (subst<br />                       (cons 1 newtext)<br />                       (assoc 1 edata)<br />                       edata<br />                     )<br />             )<br />             (setq ct2 (1+ ct2))<br />           )<br />         )<br />         (setq ct0 (1+ ct0))<br />       )<br />     )<br />   )<br />   (setq n (1+n))<br />   )<br />   (princ)<br /> )<br />

我想查找表list1中的元素，如果找到将其替换成list2中对应的元素。
但是程序执行了没反应，没有想要的效果，求解~~

Gu_xl

加载XLRX_API:

1. (defun c:tt ()
   
2.   (setq        list1 (list "172.00-76.00"         "172.00-77.00"
   
3.                     "171.20-76.00"         "171.20-77.00"
   
4.                     "170.40-76.00"         "170.40-77.00"
   
5.                     "169.60-76.00"         "169.60-77.00"
   
6.                     "169.60-78.00"         "168.80-76.00"
   
7.                     "168.80-77.00"         "168.80-78.00"
   
8.                     "168.00-76.00"         "168.00-77.00"
   
9.                     "168.00-78.00"         "167.20-75.00"
   
10.                     "167.20-76.00"         "167.20-77.00"
    
11.                     "167.20-78.00"         "166.40-77.00"
    
12.                     "166.40-78.00"         "166.40-79.00"
    
13.                     "165.60-77.00"         "164.80-77.00"
    
14.                     "164.00-78.00"
    
15.                    )
    
16.   )
    
17.   (setq        list2 (list "I02160077"             "I02160078"      "I02150077"
    
18.                     "I02150078"             "I02140077"      "I02140078"
    
19.                     "I02130077"             "I02130078"      "I02130079"
    
20.                     "I02120077"             "I02120078"      "I02120079"
    
21.                     "I02110077"             "I02110078"      "I02110079"
    
22.                     "I02100076"             "I02100077"      "I02100078"
    
23.                     "I02100079"             "I02090078"      "I02090079"
    
24.                     "I02090080"             "I02080078"      "I02070078"
    
25.                     "I02060079"
    
26.                    )
    
27.   )
    
28.   (if (setq ss (ssget '((0 . "TEXT"))))
    
29.     (mapcar
    
30.       (function
    
31.         (lambda        (a b)
    
32.           (XLRX-Text-Find a b 4 ss)
    
33.         )
    
34.       )
    
35.       list1
    
36.       list2
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )

(defun c:tt ()<br />   (setq        list1 (list "172.00-76.00"         "172.00-77.00"<br />                     "171.20-76.00"         "171.20-77.00"<br />                     "170.40-76.00"         "170.40-77.00"<br />                     "169.60-76.00"         "169.60-77.00"<br />                     "169.60-78.00"         "168.80-76.00"<br />                     "168.80-77.00"         "168.80-78.00"<br />                     "168.00-76.00"         "168.00-77.00"<br />                     "168.00-78.00"         "167.20-75.00"<br />                     "167.20-76.00"         "167.20-77.00"<br />                     "167.20-78.00"         "166.40-77.00"<br />                     "166.40-78.00"         "166.40-79.00"<br />                     "165.60-77.00"         "164.80-77.00"<br />                     "164.00-78.00"<br />                    )<br />   )<br />   (setq        list2 (list "I02160077"             "I02160078"      "I02150077"<br />                     "I02150078"             "I02140077"      "I02140078"<br />                     "I02130077"             "I02130078"      "I02130079"<br />                     "I02120077"             "I02120078"      "I02120079"<br />                     "I02110077"             "I02110078"      "I02110079"<br />                     "I02100076"             "I02100077"      "I02100078"<br />                     "I02100079"             "I02090078"      "I02090079"<br />                     "I02090080"             "I02080078"      "I02070078"<br />                     "I02060079"<br />                    )<br />   )<br />   (if (setq ss (ssget '((0 . "TEXT"))))<br />     (mapcar<br />       (function<br />         (lambda        (a b)<br />           (XLRX-Text-Find a b 4 ss)<br />         )<br />       )<br />       list1<br />       list2<br />     )<br />   )<br />   (princ)<br /> )

yhly555

Gu_xl 发表于 2015-3-10 19:36
加载XLRX_API:

谢谢！感觉简单了好多

paulpipi