【求助】aucad2000怎样设置自己的快捷键？

在auCAD2000\Support\acad.pgp文件打开后怎样设置自己的快捷键？
我想只在 commond命令行里只输入：一个字母“z”就可以全屏显示所有图形的快捷键又是怎样设置的？
各位高手能不能提供一个*.lisp 文件给我，是加载后就可以使用的快捷键的文件。
  我的EMAIL：MOULDUG@163.COM
这里先谢谢各位了！

(defun C:ZOOM9E ( / c1 c2 ll ur)
   (setq c1 (getvar "extmin")
         c2 (getvar "extmax")
   )
   (setq ll (list (- (car c1) (* 0.1 (- (car c2) (car c1))))
                  (- (cadr c1) (* 0.1 (- (cadr c2) (cadr c1))))
                  (- (caddr c1) (* 0.1 (- (caddr c2) (caddr c1))))
            )
         ur (list (+ (car c2) (* 0.1 (- (car c2) (car c1))))
                  (+ (cadr c2) (* 0.1 (- (cadr c2) (cadr c1))))
                  (+ (caddr c2) (* 0.1 (- (caddr c2) (caddr c1))))
            )
   )
   (command "ZOOM" "W" ll ur)
)
  
然後在acad.pgp
加上  
Z,     *ZOOM9E  
這樣就可以了
要注意 Z 這一項沒有跟其他的快捷設定衝突
  
使用方式  command: z enter即可

在MENU文件里加入以下:
***ACCELERATORS
// Toggle PICKADD
["F1"]'ZOOM W
["F2"]'ZOOM .4X
["F4"]'_HELP
["F5"]'_TEXTSCR
你即可用F1键放大,F2键缩小F4帮助...
也可改为F1键全屏
***ACCELERATORS
// Toggle PICKADD
["F1"]'ZOOM A
["F2"]'ZOOM .4X
["F4"]'_HELP
["F5"]'_TEXTSCR
还有好多可改的地方,慢慢学吧。
["Z"]'ZOOM A
等等等等

何必这么麻烦，用Acad.lsp很方便修改的。

用什么LSP？？？
简直是骗人！
编辑ACAD。PGP。。。
参照原样写就行了。

dwang朋友：你樓上的兄弟沒騙你，那可是二次開發的東東，你打開cad后載入這個*.lsp看看，而且功能比.pgp強多了。

wayer wrote:
dwang朋友：你樓上的兄弟沒騙你，那可是二次開發的東東，你打開cad后載入這個*.lsp看看，而且功能比.pgp強多了。

  
谢谢你，我用Cad十几年，第一次听人说我在骗他

用LisP編
我劃精密連續沖模20幾年都用LisP編100多個LisP
LisP實在很好用
PGP也不能編太多程式 只能編一個ACAD.PGP