（XD::VLA:Item-p）判断容器中是否包含指定名字的对象

marting

1. (defun XD::VLA:Item-p ( col itm )
   
2.     (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list col itm))))
   
3. )
   

(defun XD::VLA:Item-p ( col itm )<br />     (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list col itm))))<br /> )<br />

炫翔

如果包含 不要返回T 直接返回元素好些

炫翔

2. (if(not(vl-catch-all-error-p(setq a(vl-catch-all-apply(function vla-item)(list col itm))))) a)

(if(not(vl-catch-all-error-p(setq a(vl-catch-all-apply(function vla-item)(list col itm))))) a)

marting

炫翔 发表于 2017-5-17 09:23

返回元素的在这  http://bbs.xdcad.net/thread-709102-1-1.html

不同地方，用不同的