若程序中断，cmdecho值未恢复，请问如何避免？--->已解决

vectra

错误处理中进行变量恢复，可参考
http://bbs.mjtd.com/thread-111755-1-1.html

fangmin723

这个也是我从别人那里学来的，发出来共同学习！主要是中括号里面的内容，可以把他放在你的主程序里面！

1. (defun c:t1(/ *error* osm tmp cmd);错误处理程序
   
2.   (setq cmd (getvar "cmdecho"))
   
3.   (setvar "cmdecho" 0)
   
4.   (setq osm (getvar "osmode"))
   
5.   (setq tmp "ByLayer")
   
6.   
   
7. ;【
   
8.   (defun *error* (msg)
   
9.     (setvar "cmdecho" cmd)
   
10.     (setvar "osmode" osm)
    
11.     (setvar "cecolor" tmp)
    
12.   );错误处理程序结束
    
13. ;】
    
14.   
    
15.   (setvar "cecolor" "2")
    
16.   (getpoint);此时看对象捕捉模式，只有一个端点。但在此处按esc，cmdecho、当前颜色和osmode，会恢复到之前的值或者自己设置的值
    
17.   
    
18. ;【
    
19.   (*error* nil)
    
20. ;】
    
21.   (setvar "cmdecho" cmd)
    
22.   (setvar "osmode" osm)
    
23.   (setvar "cecolor" tmp)
    
24.   (prin1)
    
25. )
    

(defun c:t1(/ *error* osm tmp cmd);错误处理程序<br />   (setq cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq osm (getvar "osmode"))<br />   (setq tmp "ByLayer")<br />   <br /> ;【<br />   (defun *error* (msg)<br />     (setvar "cmdecho" cmd)<br />     (setvar "osmode" osm)<br />     (setvar "cecolor" tmp)<br />   );错误处理程序结束<br /> ;】<br />   <br />   (setvar "cecolor" "2")<br />   (getpoint);此时看对象捕捉模式，只有一个端点。但在此处按esc，cmdecho、当前颜色和osmode，会恢复到之前的值或者自己设置的值<br />   <br /> ;【<br />   (*error* nil)<br /> ;】<br />   (setvar "cmdecho" cmd)<br />   (setvar "osmode" osm)<br />   (setvar "cecolor" tmp)<br />   (prin1)<br /> )<br />

gamexia

fangmin723 发表于 2016-10-21 22:22
这个也是我从别人那里学来的，发出来共同学习！主要是中括号里面的内容，可以把他放在你的主程序里面！

感谢，这个方法也很棒，还可以修改后，让中断程序中的局部变量清空

gamexia

刚开始接触，有很多地方不懂，感谢楼上2位，热情的帮助

fangmin723

gamexia 发表于 2016-10-21 23:12
刚开始接触，有很多地方不懂，感谢楼上2位，热情的帮助

不客气，大家都是这么过来的，共同学习罢了！