[LISP函数]：(xdl-iscl e) 检测实体是否闭合

狂刀

2. 
   
3.   [FONT=courier new]
   
4. ;| (xdl-iscl e) = 检测实体是否闭合---ok---by 狂刀.2005.10
   
5. 参数 : e = 被检测的实体,不限制类型.自动出错处理.
   
6. 返回 : T 闭合; nil 不闭合.
   
7. 测试 :
   
8. (xdl-iscl (CAR (ENTSEL)))
   
9. |;
   
10. 
    
11. (DEFUN xdl-iscl (e)
    
12.   (EQ :VLAX-TRUE
    
13.       (VL-CATCH-ALL-APPLY '(LAMBDA () (VLA-GET-CLOSED (VLAX-ENAME->VLA-OBJECT e))))
    
14.   )
    
15. )
    
16. 
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;| (xdl-iscl e) = 检测实体是否闭合---ok---by 狂刀.2005.10<br /> 参数 : e = 被检测的实体,不限制类型.自动出错处理.<br /> 返回 : T 闭合; nil 不闭合.<br /> 测试 :<br /> (xdl-iscl (CAR (ENTSEL)))<br /> |;<br /> <br /> (DEFUN xdl-iscl (e)<br />   (EQ :VLAX-TRUE<br />       (VL-CATCH-ALL-APPLY '(LAMBDA () (VLA-GET-CLOSED (VLAX-ENAME->VLA-OBJECT e))))<br />   )<br /> )<br /> <br />   [/FONT]<br />