（XD::VLA:CatchApply）函数执行封装

marting

1. ;|
   
2. 函数名称:        XD::VLA:CatchApply
   
3. 调用格式:        (XD::VLA:CatchApply func param)
   
4. 参数说明:        func ----------- 函数符号名
   
5. param ---------- 参数表
   
6. 返回值:        T 或者 VLA对象 或者 #<%catch-all-apply-error%>对象
   
7. 函数简介:        函数执行封装，屏蔽错误，执行函数到底
   
8. 函数来源:        原创
   
9. 函数作者:        marting
   
10. 适用版本:        不限
    
11. 最后更新时间:        2017-05-17
    
12. |;
    
13. (defun XD::VLA:CatchApply (fun arg / rtn)
    
14.   (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply fun arg))))
    
15.     (if (eq rtn 'NIL)
    
16.       t
    
17.       rtn
    
18.     )
    
19.     rtn
    
20.   )
    
21. )
    

;|<br /> 函数名称:        XD::VLA:CatchApply<br /> 调用格式:        (XD::VLA:CatchApply func param)<br /> 参数说明:        func ----------- 函数符号名<br /> param ---------- 参数表<br /> 返回值:        T 或者 VLA对象 或者 #<%catch-all-apply-error%>对象<br /> 函数简介:        函数执行封装，屏蔽错误，执行函数到底<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-05-17<br /> |;<br /> (defun XD::VLA:CatchApply (fun arg / rtn)<br />   (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply fun arg))))<br />     (if (eq rtn 'NIL)<br />       t<br />       rtn<br />     )<br />     rtn<br />   )<br /> )<br />

不封装前代码：

1. (defun c:tt ()
   
2.   (if (and (setq e1 (car (entsel)))
   
3.            (setq o1 (vlax-ename->vla-object e1))
   
4.            (setq e2 (car (entsel)))
   
5.            (setq o2 (vlax-ename->vla-object e2))
   
6.       )
   
7.     (if (not
   
8.           (vl-catch-all-error-p
   
9.             (vl-catch-all-apply
   
10.               (function
    
11.                 (lambda () (setq ints (vla-intersectwith o1 o2 2)))
    
12.               )
    
13.             )
    
14.           )
    
15.         )
    
16.       (progn
    
17.         (setq ints (xd::vla:variant->value ints)) ;; (2670.65 1428.42 0.0 2354.42 670.308 0.0)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt ()<br />   (if (and (setq e1 (car (entsel)))<br />            (setq o1 (vlax-ename->vla-object e1))<br />            (setq e2 (car (entsel)))<br />            (setq o2 (vlax-ename->vla-object e2))<br />       )<br />     (if (not<br />           (vl-catch-all-error-p<br />             (vl-catch-all-apply<br />               (function<br />                 (lambda () (setq ints (vla-intersectwith o1 o2 2)))<br />               )<br />             )<br />           )<br />         )<br />       (progn<br />         (setq ints (xd::vla:variant->value ints)) ;; (2670.65 1428.42 0.0 2354.42 670.308 0.0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

用 xd::vla:catchapply

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e1 (car (entsel)))
   
4.         (setq o1 (vlax-ename->vla-object e1))
   
5.         (setq e2 (car (entsel)))
   
6.         (setq o2 (vlax-ename->vla-object e2))
   
7.       )
   
8.     (if (setq ints (xd::vla:catchapply 'vla-intersectwith (list o1 o2 2)))
   
9.         (setq ints (xd::vla:variant->value ints)) ; (2670.65 1428.42 0.0 2354.42 670.308 0.0)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt ()<br />   (if (and<br />         (setq e1 (car (entsel)))<br />         (setq o1 (vlax-ename->vla-object e1))<br />         (setq e2 (car (entsel)))<br />         (setq o2 (vlax-ename->vla-object e2))<br />       )<br />     (if (setq ints (xd::vla:catchapply 'vla-intersectwith (list o1 o2 2)))<br />         (setq ints (xd::vla:variant->value ints)) ; (2670.65 1428.42 0.0 2354.42 670.308 0.0)<br />     )<br />   )<br />   (princ)<br /> )<br />

csy0415

感谢大师分享，非常有用