[编程申请]：怎样在lisp中调用ai_deselect函数

coldhope

怎样在lisp中调用ai_deselect函数
这样也许可以解决esc快捷命令的问题：即：已经选择了图元，当想要重新选择时，可用快捷命令而不用跑到左上角去按esc键

ll_j

[B](ai_deselect)[/B]

2. ;;;如
   
3. (defun c:dse()(ai_deselect)(princ))

;;;如<br /> (defun c:dse()(ai_deselect)(princ))

你到底想要干什么呢，这个函数是在acad.mnl中定义的，加载了acad.mns就可以使用，看程序是释放select命令的选择集，在自己编的程序中是不需要的，而平时使用时都是重新选择一次，不必释放。

2. ;;; Shortcut menu Deselect All item.
   
3. 
   
4. (defun ai_deselect ()
   
5.    (if (= (getvar "cmdecho") 0)                        ;start if
   
6.        (command "_.select" "_r" "_all" "")
   
7.        (progn                                        ;start progn for cmdecho 1
   
8.            (setvar "cmdecho" 0)
   
9.            (command "_.select" "_r" "_all" "")
   
10.            (setvar "cmdecho" 1)
    
11.        )                                        ;end progn for cmdecho 1
    
12.    )                                                ;end if
    
13.    (terpri)
    
14.    (prompt "所有对象都已取消选择")
    
15.    (princ)
    
16. )

;;; Shortcut menu Deselect All item.<br /> <br /> (defun ai_deselect ()<br />    (if (= (getvar "cmdecho") 0)                        ;start if<br />        (command "_.select" "_r" "_all" "")<br />        (progn                                        ;start progn for cmdecho 1<br />            (setvar "cmdecho" 0)<br />            (command "_.select" "_r" "_all" "")<br />            (setvar "cmdecho" 1)<br />        )                                        ;end progn for cmdecho 1<br />    )                                                ;end if<br />    (terpri)<br />    (prompt "所有对象都已取消选择")<br />    (princ)<br /> )

coldhope

我只是不想总去点esc键，所以想找个快捷命令代替所有esc的功能

总之还是万分的感谢大侠！！！！！！

梦断江南

还编什么啊，用esc会退出选择状态。用ctrl+z 或 u,会撤销上次选的实体，而且不退出选择状态。多好！虽然每次只是回退一步，但是可以回退多次，一般来说，操作的时候不会选“错”了好几次才想到要撤销的吧，要有最多也两三次，所以我觉得没有必要为了这个寻求另外编程解决