按索引删除列表的项

jpg102329

1. ;22:35 2017/7/20
   
2. ;【管理员】大海<tryhi@sina.cn> 22:48:12
   
3. (defun remove-dh (lst n / a i k lst1)
   
4. (setq i -1 k t)
   
5. (while(and(setq a(car lst))k)
   
6. (setq
   
7. i(1+ i)
   
8. lst(cdr lst)
   
9. )
   
10. (if (= i n)(setq k nil)(setq lst1(cons a lst1)))
    
11. )
    
12. (append (reverse lst1)lst)
    
13. )
    
14. 
    
15. 
    
16. 
    
17. ;22:35 2017/7/20
    
18. 【观音】落魄山人<vicwjb@qq.com> 22:33:30
    
19. (defun remove (lst i / len m)
    
20.   (setq len (length lst))
    
21.   (cond
    
22.     ((> i (fix (/ len 2)))
    
23.      (reverse (vl-remove-if '(lambda (x) (= i (setq len (1- len)))) (reverse lst)))
    
24.     )
    
25.     (t
    
26.      (setq m -1)
    
27.      (vl-remove-if '(lambda (x) (= i (setq m (1+ m)))) lst)
    
28.     )
    
29.   )
    
30. )  试试这个  
    
31. ;22:33 2017/7/20
    
32. 【观音】落魄山人<vicwjb@qq.com> 22:32:18
    
33. (defun BF-List-RemoveIndex (lst index / i)
    
34.   (setq i -1)
    
35.   (vl-remove-if '(lambda (x) (= (setq i (1+ i)) index)) lst)
    
36. )
    
37. ;22:30 2017/7/20
    
38. 【观音】落魄山人<vicwjb@qq.com> 22:08:45
    
39. ;;;名称:BF-List-RemoveIndex
    
40. ;;;说明:按索引删除列表的项,leemac
    
41. ;;;参数:lst:列表
    
42. ;;;参数:index:索引，从0开始
    
43. ;;;返回:删除索引项之后的列表
    
44. ;;;示例BF-List-RemoveIndex '(0 1 2 3) 1)
    
45. (defun BF-List-RemoveIndex (lst index / i)
    
46.   (setq i -1)
    
47.   (vl-remove-if '(lambda (x) (= (setq i (1+ i)) index)) lst)
    
48. );我是这么写的

;22:35 2017/7/20<br /> ;【管理员】大海<<a href="mailto:tryhi@sina.cn" target="_blank">tryhi@sina.cn</a>> 22:48:12<br /> (defun remove-dh (lst n / a i k lst1)<br /> (setq i -1 k t)<br /> (while(and(setq a(car lst))k)<br /> (setq <br /> i(1+ i)<br /> lst(cdr lst)<br /> )<br /> (if (= i n)(setq k nil)(setq lst1(cons a lst1)))<br /> )<br /> (append (reverse lst1)lst)<br /> )<br /> <br /> <br /> <br /> ;22:35 2017/7/20<br /> 【观音】落魄山人<<a href="mailto:vicwjb@qq.com" target="_blank">vicwjb@qq.com</a>> 22:33:30<br /> (defun remove (lst i / len m)<br />   (setq len (length lst))<br />   (cond<br />     ((> i (fix (/ len 2)))<br />      (reverse (vl-remove-if '(lambda (x) (= i (setq len (1- len)))) (reverse lst)))<br />     )<br />     (t<br />      (setq m -1)<br />      (vl-remove-if '(lambda (x) (= i (setq m (1+ m)))) lst)<br />     )<br />   )<br /> )  试试这个  <br /> ;22:33 2017/7/20<br /> 【观音】落魄山人<<a href="mailto:vicwjb@qq.com" target="_blank">vicwjb@qq.com</a>> 22:32:18<br /> (defun BF-List-RemoveIndex (lst index / i)<br />   (setq i -1)<br />   (vl-remove-if '(lambda (x) (= (setq i (1+ i)) index)) lst)<br /> )<br /> ;22:30 2017/7/20<br /> 【观音】落魄山人<<a href="mailto:vicwjb@qq.com" target="_blank">vicwjb@qq.com</a>> 22:08:45<br /> ;;;名称:BF-List-RemoveIndex<br /> ;;;说明:按索引删除列表的项,leemac<br /> ;;;参数:lst:列表<br /> ;;;参数:index:索引，从0开始<br /> ;;;返回:删除索引项之后的列表<br /> ;;;示例<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />BF-List-RemoveIndex '(0 1 2 3) 1)<br /> (defun BF-List-RemoveIndex (lst index / i)<br />   (setq i -1)<br />   (vl-remove-if '(lambda (x) (= (setq i (1+ i)) index)) lst)<br /> );我是这么写的

<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！