AutoCAD动态研究

redcat

1. ;;;AutoCAD动态研究
   
2. (defun c:test (/ gr code data)
   
3.   (defun *error* (inf)
   
4.     (setq inf (strcase inf t)) ;将出错信息转换为小写字符串
   
5.     (cond
   
6.       ((wcmatch inf "*break*,*cancel*,*exit*,*取消*,*中断*") ;|按了<Esc>键出错处理|;
   
7.        (princ "\n用户按了<Esc>强制退出\n")
   
8. ;;;       (mapcar 'setvar varlst var_old);还原系统变量
   
9.       )
   
10.       (t ;|其余错误处理|;
    
11.        (princ (strcat "\n" inf))
    
12. ;;;       (mapcar 'setvar varlst var_old);还原系统变量
    
13.       )
    
14.     ) ;_ 结束cond
    
15.     (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    
16.     (princ)
    
17.   ) ;_ 结束defun
    
18. 
    
19.   (while (progn
    
20.    (setq gr   (grread t 15 0)
    
21. code (car gr)
    
22. data (cadr gr)
    
23.    ) ;_ 结束setq
    
24.    (cond
    
25.      ((= code 2) ;键盘区域
    
26.       (princ "\n您按了键盘区域:")
    
27.       (princ (vl-list->string(cdr gr)))
    
28.      )
    
29.      ((= code 3) ;鼠标左击
    
30.       (princ "\n鼠标左击点为:")
    
31.       (princ data)
    
32.      )
    
33.      ((= code 5) ;鼠标移动
    
34.       (princ "\n鼠标移动到:")
    
35.       (princ data)
    
36.      )
    
37.      ((or(= code 11) ;(getvar  "SHORTCUTMENU")=0时，鼠标右击
    
38.           (= code 25)) ;(getvar  "SHORTCUTMENU")≠0时，鼠标右击
    
39.       (princ "\n您右击了鼠标:")
    
40.      )
    
41.      (t)
    
42.    ) ;_ 结束cond
    
43.    t
    
44. ) ;_ 结束progn
    
45.   ) ;_ 结束while
    
46. ) ;_ 结束defun
    
47. 
    
48. 
    

;;;<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>动态研究<br /> (defun c:test (/ gr code data)<br />   (defun *error* (inf)<br />     (setq inf (strcase inf t)) ;将出错信息转换为小写字符串<br />     (cond<br />       ((wcmatch inf "*break*,*cancel*,*exit*,*取消*,*中断*") ;|按了<Esc>键出错处理|;<br />        (princ "\n用户按了<Esc>强制退出\n")<br /> ;;;       (mapcar 'setvar varlst var_old);还原系统变量<br />       )<br />       (t ;|其余错误处理|;<br />        (princ (strcat "\n" inf))<br /> ;;;       (mapcar 'setvar varlst var_old);还原系统变量<br />       )<br />     ) ;_ 结束cond<br />     (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (princ)<br />   ) ;_ 结束defun<br /> <br />   (while (progn<br />    (setq gr   (grread t 15 0)<br /> code (car gr)<br /> data (cadr gr)<br />    ) ;_ 结束setq<br />    (cond<br />      ((= code 2) ;键盘区域<br />       (princ "\n您按了键盘区域:")<br />       (princ (vl-list->string(cdr gr)))<br />      )<br />      ((= code 3) ;鼠标左击<br />       (princ "\n鼠标左击点为:")<br />       (princ data)<br />      )<br />      ((= code 5) ;鼠标移动<br />       (princ "\n鼠标移动到:")<br />       (princ data)<br />      )<br />      ((or(= code 11) ;(getvar  "SHORTCUTMENU")=0时，鼠标右击<br />           (= code 25)) ;(getvar  "SHORTCUTMENU")≠0时，鼠标右击<br />       (princ "\n您右击了鼠标:")<br />      )<br />      (t)<br />    ) ;_ 结束cond<br />    t<br /> ) ;_ 结束progn<br />   ) ;_ 结束while<br /> ) ;_ 结束defun<br /> <br /> <br />

434939575

请教下这个出错处理后面没有出现这个 *error* ，但是exit ....又打印出错的提示 ，不太明白出错处理。

yoyoho

学习一下,感谢分享!

chuanyumin

很好的东西

露水2

动态是个好东西

461045462

收藏下来，好好看看学习研究领会
谢谢楼主的分享

qjchen

:)
有点奇怪的是，为什么
我必须是 11而非25才是右击鼠标呢
     ((= code 11) ;鼠标右击
      (princ "\n您右击了鼠标:")
     )

yoyoho

感谢分享!
下载学习了!

它山之石

回复 qjchen 的帖子

好象跟控制右键快捷菜单的这个系统变量有关　"SHORTCUTMENU"

redcat

好象跟控制右键快捷菜单的这个系统变量有关　"SHORTCUTMENU"
我的机子上即使改为11
右击还是25

jxphklibin

好东西，学习

yshf

好东西

zark

研究很深，学习了