明经通道 Visual LISP 函数	明经通道 Visual LISP 函数
vl-some

检查论断是否对某个元素组合不为 nil 

(vl-some  predicate-functionlist [list]...)

参数

predicate-function

测试函数。它可以是任何一个这样的函数：接受的参数个数与 vl-some 提供的表的个数一样，且对某个用户指定条件返回 T。predicate-function 的值可以采用如下格式：

• 符号 (函数名) 
• '(LAMBDA (A1 A2) ...)
• (FUNCTION (LAMBDA (A1 A2) ...))

list

要测试的表。

vl-some 函数将每个表的第一个元素作为参数（由此组成参数表）传递给测试函数，然后从每个表中提取第二个参数，依此类推。一旦论断函数对某个参数返回非 nil 值，求值即被终止。或者，在某个表中的所有元素都已被处理之后停止求值。

返回值

如果 predicate-function 返回非 nil 值，则函数返回论断值。否则函数返回 nil。

示例

下面的样例检查 nlst（数值表）是否具有相等的元素：

_$ (setq nlst (list 0 2 pi pi 4))

(0 2 3.14159 3.14159 4)

_$ (vl-some '= nlst (cdr nlst))

T