[LISP程序]：陈老师在吧？问你个问题啊

luoyaya

我买了你的一本VLISP程序设计一书，书后面几页中有一个问题是怎么得到一个键盘状态，那里只写了怎么注册命令。我想问的是怎么在LISP定义一个快捷键呢。用GRREAD？怎么用呢？

还有为什么我把一个命令定义为透明命令，可能还是不能用，用了就说命令嵌套错误，是不是这个命令中不能用COMMAND函数？

谢谢了~~~~~~~~~

XDSoft

最初由 luoyaya 发布
[B]我买了你的一本VLISP程序设计一书，书后面几页中有一个问题是怎么得到一个键盘状态，那里只写了怎么注册命令。我想问的是怎么在LISP定义一个快捷键呢。用GRREAD？怎么用呢？

还有为什么我把一个命令定义为透明命?.. [/B]

定义透明命令用：

(vlax-add-cmd global-name func-sym [local-name cmd-flags])

具体看下VLISP帮助，用这个函数定义后，你的LISP定义的C：XXX这样的命令就加入到ACAD的内部命令堆栈了。可以使用(command "abc"...)这样的形式调用了。

luoyaya

(defun zde()
  (command "_zoom")
  )
(vlax-add-cmd "q" 'zde "wq" 5)

上面的为什么我在用其它命令时再调用透明Q就会出错呢？

luoyaya

还有啊，XD，你那个TAB键调用ZOOM D命令可不可以用VLISP编出来呀，GRREAD函数可以返回键盘按键，可是怎么利用它呢？

XDSoft

最初由 luoyaya 发布
[B](defun zde()
  (command "_zoom")
  )
(vlax-add-cmd "q" 'zde "wq" 5)

上面的为什么我在用其它命令时再调用透明Q就会出错呢？ [/B]

下面是VLAX-ADD-CMD函数的帮助中的：

1. 
   
2. [FONT=courier new]
   
3. Warning! You cannot use the [color=blue]command function [/color]call in a transparently-defined vlax-add-cmd function. Doing so can cause AutoCAD to close unexpectedly[/FONT]

复制代码

XDSoft

最初由 luoyaya 发布
[B]还有啊，XD，你那个TAB键调用ZOOM D命令可不可以用VLISP编出来呀，GRREAD函数可以返回键盘按键，可是怎么利用它呢？ [/B]

用LISP，自己还是别写这些，利用现成的工具吧，论坛和下载中心介绍过的AUTOHOOK软件，可以非常方便的定义快捷键。