EntLast 和 mapcar 问题

惊寒 · 发表于 2013-7-9 21:04:01

(setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) (entget (EntLast)))))

这句话错在哪里呢？？

求救各位大侠

Gu_xl · 发表于 2013-7-9 21:43:48

从语法上来说，没有任何问题！
但是当 (entlast)返回nil时就出错了！所以要先判断(entlast)！
可以改成这样:
(if (setq ent (entlast))
(setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) (entget ent))))
)

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

[已解答] EntLast 和 mapcar 问题