[LISP程序]：方便缩放的小程序

hw_mac

第一次发贴,请多多指教！！

实现功能：
将鼠标移到要查看的图形上按快捷键，可迅速实现放大、缩小和平移。如果你还在用两键的鼠标，下面的代码可以派上大用场。

代码如下：
(defun c:big()
  (setq pt (cadr (grread t)))
  (command "'_zoom" "c" pt "2x")
)
(defun c:small()
  (setq pt (cadr (grread t)))
  (command "'_zoom" "c" pt ".5x")
)
(defun c:mov()
  (setq pt (cadr (grread t)))
  (command "'_zoom" "c" pt "1x")
)

在菜单文件中定义快捷键，比如：f12

xcajcj

请问楼上的怎样才能“在菜单文件中定义快捷键”。

lsjjm

最初由 xcajcj 发布
[B]请问楼上的怎样才能“在菜单文件中定义快捷键”。 [/B]

打开ACAD.MENU 在***ACCELERATORS下加入, 如:
ID_U           [CONTROL+"Z"]

但定义快捷键最好用:
Tools-Customize-Keyboard.
Menu Group: 选择ACAD
Commands: 选择定义的命令
Press new shortcut key: 键入新键.

xlmx-whj

这位热心朋友非常感谢，还有别的好东东大家交流交流。