一个简单的问题

QUAN2518

怎么样在取得列表中的最小数的同时把这个最小的数从列表中删除

以变再次比较取得次等小的数。

caoyin

;;(test '(1 3 -2 9 22 45 0))

(defun test (nlst)
  (vl-remove nil (mapcar '(lambda (a b) (if (/= a 0) b))
                         (vl-sort-i nlst '<)
                         nlst
                 )
  )
)

QUAN2518

vl-remove

不是LISP的标准函数吧 需要加载吗？若要的话加载又需要什么条件呢？

能不能给下详细的注解 我刚学LISP 

谢谢

caoyin

Visual LISP 函数，加载方法(vl-load-com)，平台是AutoCAD2000或以上的版本

vl-remove 功能：删除表中的元素。如：

(vl-remove 3 '(1 2 3 4 5 1 2 3))---->(1 2 4 5 1 2)

(vl-remove nil '(2 3 nil "" "ddd" 10.5))---->(2 3 "" "ddd" 10.5)

sailorcwx

vl函数不需要(vl-load-com)的，vla，vlax，vlr才需要加载(vl-load-com)