在表中第n项刪除一元素，n自0开始。

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun hao-lst-delnth (idx lst / nlst cnt )
   
5.   (setq nlst '()
   
6.         cnt 0
   
7.   )
   
8.   (foreach elem lst
   
9.     (if (/= cnt idx)
   
10.       (setq nlst (cons elem nlst))
    
11.     )
    
12.     (setq cnt (1+ cnt))
    
13.   )
    
14.   (reverse nlst)
    
15. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun hao-lst-delnth (idx lst / nlst cnt )<br />   (setq nlst '()<br />         cnt 0<br />   )<br />   (foreach elem lst<br />     (if (/= cnt idx)<br />       (setq nlst (cons elem nlst))<br />     )<br />     (setq cnt (1+ cnt))<br />   )<br />   (reverse nlst)<br /> )  [/FONT]<br />

brainstorm

;;;这样也可以删除
(defun hao-lst-repl (lst pos new)
  (setq pos (1+ pos))
  (mapcar
    '(lambda (x)
       (if (zerop (setq pos (1- pos)))
         new
         x
       )
     )
    lst
  )
  (vl-remove nil lst)
)

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=657877

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=657877