API程序*ERROR*配套处理

eachy

程序开始

1. (defun XD::Progam:Begin (lst)
   
2.   (setq *XD::Error* *error*
   
3.         *error* XD::Progam:End
   
4.   )
   
5.   (if lst
   
6.     (progn
   
7.       (apply
   
8.         'xdrx_begin
   
9.         lst
   
10.       )
    
11.       (if (= (type (car lst)) 'STR)
    
12.         (apply
    
13.           'xdrx_sysvar_push
    
14.           (last (mapcar
    
15.                   'car
    
16.                   lst
    
17.                 )
    
18.           )
    
19.         )
    
20.         (apply
    
21.           'xdrx_sysvar_push
    
22.           (mapcar
    
23.             'car
    
24.             lst
    
25.           )
    
26.         )
    
27.       )
    
28.     )
    
29.     (xdrx_begin)
    
30.   )
    
31.   (princ)
    
32. )
    
33. (defun XD::Progam:End ()
    
34.   (xdrx_sysvar_pop)
    
35.   (xdrx_end)
    
36.   (setq *error* *XD::Error*
    
37.         *XD::Error* nil
    
38.   )
    
39.   (princ)
    
40. )

(defun XD::Progam:Begin (lst)<br />   (setq *XD::Error* *error*<br />         *error* XD::Progam:End<br />   )<br />   (if lst<br />     (progn<br />       (apply<br />         'xdrx_begin<br />         lst<br />       )<br />       (if (= (type (car lst)) 'STR)<br />         (apply<br />           'xdrx_sysvar_push<br />           (last (mapcar<br />                   'car<br />                   lst<br />                 )<br />           )<br />         )<br />         (apply<br />           'xdrx_sysvar_push<br />           (mapcar<br />             'car<br />             lst<br />           )<br />         )<br />       )<br />     )<br />     (xdrx_begin)<br />   )<br />   (princ)<br /> )<br /> (defun XD::Progam:End ()<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (setq *error* *XD::Error*<br />         *XD::Error* nil<br />   )<br />   (princ)<br /> )

lst 示例
1 ‘("mylyr" "1" '(("cmdecho" 0) ("blipmode" 0) ("highlight" 0) ("expert" 5))))

            创建层MYLYR,颜色设置为红色。
            保存当前层名和捕捉方式到内部数据库ARX变量。
            (COMMAND "UNDO" "A")
            保存4个系统变量到内部数据库ARX变量中。
2 '(("cmdecho" 0) ("blipmode" 0) ("highlight" 0) ("expert" 5)))

newer

ea,错误处理函数，用了两次POP，如果程序中PUSH了超过2次时候，可能就要少弹出一次了，不能恢复BEGIN前的状态。我建议，XD::Program:Begin 就不要参数了，直接调用xdrx_begin，参数里面的变量设置统一到程序里面用 xdrx_sysvar_push 去设置较好。

建议老大xdrx_end，就弹出所有的，恢复到begin前状态。
错误处理里面就不用加个xdrx_sysvar_pop了。

st788796

[ 本帖最后由 st788796 于 2013-7-16 19:40 编辑 ]\n\n查了下手册和论坛发布的一些API应用，LZ 的 Begin 应该是按以前手册的用法，push 和 pop 是新加的，其实一个Begin 保存现场，End恢复原状，push pop 在begin  ... end 任意配套是最佳方式。

1. (defun XD::Progam:Begin ()
   
2.   (setq *XD::Error* *error*
   
3. *error*     XD::Progam:End
   
4.   )
   
5.   (xdrx_begin)
   
6. )
   
7. (defun XD::Progam:End ()
   
8.   (xdrx_end)
   
9.   (setq *error* *XD::Error*
   
10. *XD::Error* nil
    
11.   )
    
12.   (princ)
    
13. )

(defun XD::Progam:Begin ()<br />   (setq *XD::Error* *error*<br /> *error*     XD::Progam:End<br />   )<br />   (xdrx_begin)<br /> )<br /> (defun XD::Progam:End ()<br />   (xdrx_end)<br />   (setq *error* *XD::Error*<br /> *XD::Error* nil<br />   )<br />   (princ)<br /> )