【已解决】请教-Autolisp程序中怎么样使语句返回nil后能够继续执行下去？

vivi8543 · 发表于 2009-7-24 13:10:00

本帖最后由作者于 2009-7-26 9:50:44 编辑

比如，有以下两个语句：

(((setq s(ssget "x" '((0 . "TEXT") (8 . "21000")))))))

(((setq s(ssget "x" '((0 . "TEXT") (8 . "22000")))))))

如果21000图层没有图元时，第一个语句就返回nil，程序到此就终止了，不会执行第二个语句

有没办法第一个语句无法执行时，直接跳过，接着读取第二个语句呢？

谢谢啦！

Andyhon · 发表于 2009-7-24 13:51:00

查查 Cond 合不合您用

vivi8543 · 发表于 2009-7-24 13:57:00

Cond 后面可以接大量的语句么？其实我第一句之后还有很多操作步骤的，用code 可能不行哦

nonsmall · 发表于 2009-7-24 15:09:00

这个问题的解决方法很多

建议楼主先看看书学习Lisp基础。

我看程序退出的原因和第一句是否返回nil没有关系，

原因是楼主外面写多了括号。

vivi8543 · 发表于 2009-7-24 15:30:00

好的，多谢！

vivi8543 · 发表于 2009-7-24 17:53:00

搞定了，确实不是选集为nil的原因，是因为while函数当第一次条件不符合时就不会运行下去，卡在这里了

caoyin · 发表于 2009-7-24 20:16:00

hawnn · 发表于 2009-7-26 00:02:00

(((setq s(ssget "x" '((0 . "TEXT") (8 . "22000")))))))

(((setq s(ssget "x" '((0 . "TEXT") (8 . "21000")))))))

你可以写成一句

(setq s (ssget "x" '((0 . "TEXT")(-4 . "<OR") (8 . "22000") (8 . "21000") (-4 . "OR>"))))

这样,如果还返回nil即是没有可操作的对象了

下面的语句也没有了再执行的必要

狂刀无痕 · 发表于 2009-7-26 02:57:00

(ssget "x" '((0 . "TEXT")(8 . "2?000")))

vivi8543 · 发表于 2009-7-26 09:50:00

谢谢楼上两位的热心帮助，但是我不只是要选择这两个图层，还要分别有大量的后继处理，所以不能直接选择在一起。

账号		自动登录	找回密码
密码			注册