请教

jackechang

我输入一个数值A后，在程序中已有一个数值列表（N1 N2 .。。。。。NN），根据A和列表判定，数值A在列表中任意NA和NB之间后设定A=NA，请各位大侠告诉此意图如何写程序。

yxp

是否要对列表进行排序？？

返回结果是唯一的还是多个？？

请举例说明。

另外，你的提问题的方法不合乎论坛规范，主题不能只写“请教”二字，至少有相关内容的描述。

如果大家都写“请教”来提问，你会不会都头大了。

jackechang

对不起没说清

举例如下:

A=32

表为(20 30 40 50)

最后设定A=表中的30

liu_kunlun

(defun geta (a dlist / b)

  (foreach x dlist

     (if (< x a) (setq b x))

  )

  b

)

jackechang

谢谢，可我输入后CAD提示错误，参数太少。不知什么原因。可以详解释一下吗？

caoyin

(defun test (num lst)
  (cadr (member num (vl-sort (cons num lst) '>)))
)

;;(test 32 '(20 30 40 50))

jackechang

谢谢CAOYIN老大，可我在测试后虽然可以达到目的， 但也会出现HELP帮助命令，这是怎么回事呀。