[原创]：我这样定义程序Begin、End。

eachy

2. 
   
3. ;;; 如果发生error (例如 ctrl-c)
   
4. ;;; 激活本命令...
   
5. (defun $yb_error (st)
   
6.   (if (/= st "函数已取消")
   
7.     ;;(princ (strcat "\n错误: " st))
   
8.     (princ "\n*取消*")
   
9.   )
   
10.   (ea:end)
    
11.   (princ)
    
12. )
    
13. ;;初始化命令，保存系统变量，标记程序开始
    
14. (defun ea:begin (sysvarlst /)           
    
15.   (setq $yb_HostAcad (vla-get-activedocument (vlax-get-acad-object)))
    
16.   (vla-startundomark $yb_hostacad)      ; 保存系统变量
    
17.   (setq $yb_sysvar_mlst (mapcar
    
18.                           '(lambda (x)
    
19.                              (list x (getvar x))
    
20.                            )
    
21.                           sysvarlst
    
22.                         )
    
23.   )
    
24.   (setq $yb_olderr *error*
    
25.         *error* $yb_error
    
26.   )
    
27.    (princ)
    
28. )
    
29. (defun ea:end ()
    
30.   (mapcar '(lambda (x)
    
31.              (eval (cons 'setvar x)))
    
32.           $yb_sysvar_mlst
    
33.   )
    
34.   (vla-endundomark $yb_hostacad)
    
35.   (setq *error* $yb_olderr)
    
36.   (setq $yb_sysvar_mlst nil $yb_hostacad nil $yb_olderr nil)
    
37.   (princ)
    
38. )
    
39. ;程序结构
    
40. (defun c:xxx ()
    
41.    (ea:begin '("osmode" "textstyle")
    
42.    ......
    
43.    (ea:end)
    
44.    (princ)
    
45. )

<br /> ;;; 如果发生error (例如 ctrl-c)<br /> ;;; 激活本命令...<br /> (defun $yb_error (st)<br />   (if (/= st "函数已取消")<br />     ;;(princ (strcat "\n错误: " st))<br />     (princ "\n*取消*")<br />   )<br />   (ea:end)<br />   (princ)<br /> )<br /> ;;初始化命令，保存系统变量，标记程序开始<br /> (defun ea:begin (sysvarlst /)           <br />   (setq $yb_HostAcad (vla-get-activedocument (vlax-get-acad-object)))<br />   (vla-startundomark $yb_hostacad)      ; 保存系统变量<br />   (setq $yb_sysvar_mlst (mapcar<br />                           '(lambda (x)<br />                              (list x (getvar x))<br />                            )<br />                           sysvarlst<br />                         )<br />   )<br />   (setq $yb_olderr *error*<br />         *error* $yb_error<br />   )<br />    (princ)<br /> )<br /> (defun ea:end ()<br />   (mapcar '(lambda (x)<br />              (eval (cons 'setvar x)))<br />           $yb_sysvar_mlst<br />   )<br />   (vla-endundomark $yb_hostacad)<br />   (setq *error* $yb_olderr)<br />   (setq $yb_sysvar_mlst nil $yb_hostacad nil $yb_olderr nil)<br />   (princ)<br /> )<br /> ;程序结构<br /> (defun c:xxx ()<br />    (ea:begin '("osmode" "textstyle")<br />    ......<br />    (ea:end)<br />    (princ)<br /> )

maxbug

好东西！

CFXQM

我使用此程序，提示“; 错误: no function definition: VLAX-GET-ACAD-OBJECT”怎么回事啊，还有，“vla-get-activedocument”、“vla-startundomark”、“vla-endundomark ”在HELP里找不到，是什么东西？如何加载？

eachy

在2000+以上用，CAD2000下需要先使用 (vl-load-com)