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

EntLast 和 mapcar 问题

(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))))
)
页: [1]
查看完整版本: EntLast 和 mapcar 问题