iCAx开思网

标题: 【求助】aucad2000怎样设置自己的快捷键？ [打印本页]

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

作者: whitecloud 时间: 2002-4-11 16:50
(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即可

作者: szsyt 时间: 2002-4-11 21:30
在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
等等等等

作者: lsgben 时间: 2002-4-12 09:13
何必这么麻烦，用Acad.lsp很方便修改的。

作者: clwang 时间: 2002-4-15 11:48
用什么LSP？？？
简直是骗人！
编辑ACAD。PGP。。。
参照原样写就行了。

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

作者: lsgben 时间: 2002-4-16 16:07

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

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

作者: kkk1006 时间: 2002-4-20 18:52
用LisP編
我劃精密連續沖模20幾年都用LisP編100多個LisP
LisP實在很好用
PGP也不能編太多程式只能編一個ACAD.PGP

欢迎光临 iCAx开思网 (https://www.icax.org/)