请问，在autolisp里有没有象vl-remove功能的函数

Taoyimaier

请问，在autolisp里有没有象vl-remove功能的函数，也就是在一个表里删除一个原子，我们单位用的是r14，没有有vlisp的一些扩展函数，所以希望在autolisp里有类似删除表里的原子的函数

还问一个问题，不知道大家平时是怎么给一个表里的元素排序的，希望不要用vl－sort这些vlisp的扩展，能不能简单的说一下算法，我希望用很简单的算法，最好有函数，

谢谢

龙龙仔

查看http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=19318&ID=19412

Taoyimaier

其实是本人太懒了，看到vlisp有了这样的函数，实在不想再写了，你得方法还可以，谢谢

qjgodiugg2

666666666666

渠辉

2. (defun remove (atom lst)
   
3.   (apply 'append (subst nil (list atom) (mapcar 'list lst)))
   
4. )
   
5. 
   

(defun remove (atom lst)<br />   (apply 'append (subst nil (list atom) (mapcar 'list lst)))<br /> )<br /> <br />

渠辉

2. (defun remove-if (pred from)
   
3.   (cond
   
4.     ((atom from) from)
   
5.     ((apply pred (list (car from))) (remove-if pred (cdr from)))
   
6.     (t (cons (car from) (remove-if pred (cdr from))))
   
7.   )
   
8. )
   

(defun remove-if (pred from)<br />   (cond<br />     ((atom from) from)<br />     ((apply pred (list (car from))) (remove-if pred (cdr from)))<br />     (t (cons (car from) (remove-if pred (cdr from))))<br />   )<br /> )<br />

渠辉

2. (defun remove-if-not (pred lst)
   
3.   (apply 'append
   
4.          (mapcar '(lambda (e)
   
5.                     (if (apply pred (list e))
   
6.                       (list e)
   
7.                     )
   
8.                   )
   
9.                  lst
   
10.          )
    
11.   )
    
12. )
    

(defun remove-if-not (pred lst)<br />   (apply 'append<br />          (mapcar '(lambda (e)<br />                     (if (apply pred (list e))<br />                       (list e)<br />                     )<br />                   )<br />                  lst<br />          )<br />   )<br /> )<br />