Taoyimaier 发表于 2003-5-14 22:58:00

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

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

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

谢谢

龙龙仔 发表于 2003-5-15 08:47:00

到本站實用函數找找,並查看

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

Taoyimaier 发表于 2003-5-15 19:03:00

谢谢你阿

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

qjgodiugg2 发表于 2022-7-24 12:42:57

666666666666

渠辉 发表于 2022-7-24 15:37:29

(defun remove (atom lst)
(apply 'append (subst nil (list atom) (mapcar 'list lst)))
)

渠辉 发表于 2022-7-24 15:38:33

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

渠辉 发表于 2022-7-24 15:39:35

(defun remove-if-not (pred lst)
(apply 'append
         (mapcar '(lambda (e)
                  (if (apply pred (list e))
                      (list e)
                  )
                  )
               lst
         )
)
)
页: [1]
查看完整版本: 请问，在autolisp里有没有象vl-remove功能的函数