完成和评估

Costinbos77 · 发表于 2022-7-6 06:54:05

你好

也可以写入以下表达式：


(foreach el (list 'Length 'Circumference 'ArcLength) 
(if (vlax-property-available-p vobi el) (setq per (vlax-get-property vobi el) )) )

停止对第一个真实答案列表的评估？

Lee Mac · 发表于 2022-7-6 06:58:52

我不太明白这个问题，但也许：

(vl-some
  '(lambda ( x ) (if (vlax-property-available-p vobi x) (vlax-get-property vobi x)))
  '(length circumference arclength)
)

MSasu · 发表于 2022-7-6 07:03:49

Lee，我相信这正是Costinbos77所要寻找的——一种End Foreach语句（例如类似于VB中的End for），它将在第一次遇到满足特定条件的项时中止评估周期。

我提议这样做是为了证明两者的区别：

(progn (foreach x '(1 2 5 3 5 4 5) (if (eq x 5) (print T) (print nil))) (princ))

vs。

(progn (vl-some '(lambda(x) (if (eq x 5) (print T) (print nil))) '(1 2 5 3 5 4 5)) (princ))

Costinbos77 · 发表于 2022-7-6 07:12:27

谢谢你的回复。

我重新制定了要求。

vl某些函数将停止计算第一个真实响应？

因为foreach函数计算整个项目列表。

Lee Mac · 发表于 2022-7-6 07:14:46

正确-请参阅上面MSasu提供的演示。

Costinbos77 · 发表于 2022-7-6 07:19:32

我试着表达：


(progn (vl-some '(lambda(x) (princ "\n  ") (princ (if (= x 5) (setq a x) "NO")) (princ "  ;")) '(1 2 5 3 5 4 5)) (princ))

结果是：


 NO  ; ' Only one! Supposed to be two.'
...
and
a = nil

似乎评估在第一个错误时停止。我需要反转，首先是真的。

MSasu · 发表于 2022-7-6 07:24:09

我相信这就是你想要得到的：

(vl-some '(lambda(x) (princ "\n") (princ (if (= x 5) (progn (setq a x) "Done")))) '(1 2 5 3 5 4 5))

Lee Mac · 发表于 2022-7-6 07:30:33

考虑这个例子：

_$ (vl-some '(lambda ( x ) (print x) (= x 5)) '(0 1 2 5 3 4 5))
0 
1 
2 
5 T

Costinbos77 · 发表于 2022-7-6 07:35:07

似乎：


(vl-some '(lambda(x) (princ "\n  ") (princ (if (= x 5) (setq a x) [color=red]vvv[/color])) (princ "  ;")) '(1 2 5 3 5 4 5))

如果vvv/=nil，停止评估lambda函数。

MSasu · 发表于 2022-7-6 07:39:32

您的代码将在第一项停止求值，因为由于最后一次求值（PRINC），LAMBDA函数将始终返回T！你测试了7号帖子上提出的更正吗？

[编程交流] 完成和评估