[LISP函数]：几个简单实用的表处理函数

hqd9639

因为自己经常用到，所以就把它写了下来，希望对你也有点用。

2. 
   
3. ;;;AUTOLISP函数
   
4. ;;;Write by HQD9639
   
5. ;;;*****************************************************************************
   
6. ;1.表截取函数(1)
   
7.   ;;;功能:把旧表oldlst从num以后的表项删除，组成新表(num从0开始)
   
8.   ;;;CODE:
   
9.   (defun cutbeh_lst (oldlst num / k templst)
   
10.    (setq k 0)
    
11.    (setq templst '())
    
12.    (foreach n oldlst
    
13.           (if (/= k num)
    
14.               (progn
    
15.                  (setq templst (cons n templst))
    
16.                  (setq k (1+ k))
    
17.               )
    
18.          )
    
19.    )
    
20.    (setq newlst (reverse templst))
    
21. )
    
22. ;;;*******************************************************************************
    
23. ;2.表截取函数(2)
    
24.   ;;;功能:把旧表oldlst从num以前的表项删除，组成新表(num从0开始)
    
25.   ;;;CODE:
    
26.   (defun cutbef_lst (oldlst num / k templst)
    
27.    (setq k 0)
    
28.    (setq templst '())
    
29.    (foreach n oldlst
    
30.           (if (> k num)
    
31.               (progn
    
32.                  (setq templst (cons n templst))
    
33.                  (setq k (1+ k))
    
34.               )
    
35.               (setq k (1+ k))
    
36.          )
    
37.    )
    
38.    (setq newlst (reverse templst))
    
39. )
    
40. ;;;*******************************************************************************
    
41. ;3.表截取函数(3)
    
42.   ;;;功能:截取旧表oldlst中num1至num2之间的表项，组成新表(num1,num2从0开始)
    
43.   ;;;CODE:
    
44.   (defun cutmid_lst (oldlst num1 num2 / k templst)
    
45.    (setq k 0)
    
46.    (setq templst '())
    
47.    (foreach n oldlst
    
48.           (if (and (>= k num1) (<= k num2))
    
49.               (progn
    
50.                  (setq templst (cons n templst))
    
51.                  (setq k (1+ k))
    
52.               )
    
53.               (setq k (1+ k))
    
54.          )
    
55.    )
    
56.    (setq newlst (reverse templst))
    
57. )
    
58. ;;;*******************************************************************************
    
59. ;4.删除旧表oldlst中的指定表项lstitem
    
60.   ;;;CODE:
    
61.   (defun cutitem_lst (oldlst lstitem /)
    
62.      (setq newlst (append (reverse (cdr (member lstitem (reverse oldlst))))
    
63.                           (cdr (member lstitem oldlst))
    
64.                  )
    
65.     )
    
66.   )
    
67. ;;;*******************************************************************************
    
68. ;5.删除旧表oldlst中的指定元素
    
69. 
    
70.   ;;;功能:删除旧表oldlst中的指定元素,组成新表(num从0开始)
    
71.   ;;;CODE:
    
72.   (defun cutnum_lst (oldlst num / k templst)
    
73.    (setq k 0)
    
74.    (setq templst '())
    
75.    (foreach n oldlst
    
76.           (if (/= k num)
    
77.               (progn
    
78.                  (setq templst (cons n templst))
    
79.                  (setq k (1+ k))
    
80.               )
    
81.               (setq k (1+ k))
    
82.          )
    
83.    )
    
84.    (setq newlst (reverse templst))
    
85. )
    
86. ;;;*******************************************************************************

<br /> ;;;AUTOLISP函数<br /> ;;;Write by HQD9639<br /> ;;;*****************************************************************************<br /> ;1.表截取函数(1)<br />   ;;;功能:把旧表oldlst从num以后的表项删除，组成新表(num从0开始)<br />   ;;;CODE:<br />   (defun cutbeh_lst (oldlst num / k templst)<br />    (setq k 0)<br />    (setq templst '())<br />    (foreach n oldlst<br />           (if (/= k num)<br />               (progn<br />                  (setq templst (cons n templst))<br />                  (setq k (1+ k))<br />               )<br />          )<br />    )<br />    (setq newlst (reverse templst))<br /> )<br /> ;;;*******************************************************************************<br /> ;2.表截取函数(2)<br />   ;;;功能:把旧表oldlst从num以前的表项删除，组成新表(num从0开始)<br />   ;;;CODE:<br />   (defun cutbef_lst (oldlst num / k templst)<br />    (setq k 0)<br />    (setq templst '())<br />    (foreach n oldlst<br />           (if (> k num)<br />               (progn<br />                  (setq templst (cons n templst))<br />                  (setq k (1+ k))<br />               )<br />               (setq k (1+ k))<br />          )<br />    )<br />    (setq newlst (reverse templst))<br /> )<br /> ;;;*******************************************************************************<br /> ;3.表截取函数(3)<br />   ;;;功能:截取旧表oldlst中num1至num2之间的表项，组成新表(num1,num2从0开始)<br />   ;;;CODE:<br />   (defun cutmid_lst (oldlst num1 num2 / k templst)<br />    (setq k 0)<br />    (setq templst '())<br />    (foreach n oldlst<br />           (if (and (>= k num1) (<= k num2))<br />               (progn<br />                  (setq templst (cons n templst))<br />                  (setq k (1+ k))<br />               )<br />               (setq k (1+ k))<br />          )<br />    )<br />    (setq newlst (reverse templst))<br /> )<br /> ;;;*******************************************************************************<br /> ;4.删除旧表oldlst中的指定表项lstitem <br />   ;;;CODE:<br />   (defun cutitem_lst (oldlst lstitem /)<br />      (setq newlst (append (reverse (cdr (member lstitem (reverse oldlst))))<br />                           (cdr (member lstitem oldlst))<br />                  )<br />     )<br />   )<br /> ;;;*******************************************************************************<br /> ;5.删除旧表oldlst中的指定元素 <br /> <br />   ;;;功能:删除旧表oldlst中的指定元素,组成新表(num从0开始)<br />   ;;;CODE:<br />   (defun cutnum_lst (oldlst num / k templst)<br />    (setq k 0)<br />    (setq templst '())<br />    (foreach n oldlst<br />           (if (/= k num)<br />               (progn<br />                  (setq templst (cons n templst))<br />                  (setq k (1+ k))<br />               )<br />               (setq k (1+ k))<br />          )<br />    )<br />    (setq newlst (reverse templst))<br /> )<br /> ;;;*******************************************************************************

bridgewind

太好了，我正需要！
交作业了！！！哈哈哈

xkcjf_1219

初学Lisp，表处理让人头疼，有了您这几个表处理函数，真是太方便了，谢谢！

许锦华_gHav7

谢谢你，学习了