如何设置键盘的F1,F2键

zhongys

如何设置键盘的F1,F2键，以前可以在菜单文件设置，现在用2020版了找不到MNU文件了。以下是以前菜单的功能
按F1键可以实现透明命令  'ZOOM W  功能
按F1键可以实现透明命令  'ZOOM .4X  功能

***ACCELERATORS
// Bring up hyperlink dialog
ID_Hyperlink [CONTROL+"K"]
// Toggle Orthomode
// Next Viewport
["F1"]'ZOOM W
["F2"]'ZOOM .4X

求一个程式可以实现以上两个功能。

zhongys

程式已写好，已注册为透明命令了。就差改改键盘的F1,F2了，貌似sendkeys可以，但不知道如何处理。
(defun c:zze()
(VL-LOAD-COM)
  (setq    AcadObject   (vlax-get-acad-object))
  (vla-ZoomExtents AcadObject)
  (princ)
)

(defun c:zzx()
(VL-LOAD-COM)
  (setq    AcadObject   (vlax-get-acad-object)
       AcadDocument (vla-get-ActiveDocument Acadobject)
  )
  (vla-ZoomScaled (vla-get-Application Acaddocument) 0.4 acZoomScaledRelative)
  (princ)
)
(vlax-add-cmd "zze" 'c:zze "zze" 1)
(vlax-add-cmd "zzx" 'c:zzx "zzx" 1)

foolishzy

2. (defun c:reghotkey()
   
3.         (setq  string_cmd "ZOOM W" )
   
4.         ;;将ZOOM W命令赋值给热键F1快捷键
   
5.         (defun REGHOTKEYmnu(/ f file)
   
6.                 (vl-Load-com)
   
7.                 (if (menugroup "REGHOTKEY" )(vl-cmdf "MENUUNLOAD" "REGHOTKEY"))
   
8.                 (prin1)
   
9.                 (if (null(menugroup "REGHOTKEY"))
   
10.                         (progn
    
11.                                 (setq file(strcat(getenv "Temp")"\\REGHOTKEY.mnu"))
    
12.                                 (setq f (open file "w"))
    
13.                                 (foreach line
    
14.                                         (list
    
15.                                                 "***MENUGROUP=REGHOTKEY"
    
16.                                                 "***ACCELERATORS"
    
17.                                                 (strcat "["F1"] ^C^C" string_cmd)
    
18.                                         )
    
19.                                         (write-line line f)
    
20.                                 )
    
21.                                 (close f)
    
22.                                 (vl-cmdf "menuload" (findfile file))
    
23.                         )
    
24.                 )
    
25.                 (vl-acad-undefun 'REGHOTKEYmnu)
    
26.                 (princ)
    
27.         )
    
28.         (REGHOTKEYmnu)
    
29. )

(defun c:reghotkey()<br />         (setq  string_cmd "ZOOM W" )<br />         ;;将ZOOM W命令赋值给热键F1快捷键<br />         (defun REGHOTKEYmnu(/ f file)<br />                 (vl-Load-com)<br />                 (if (menugroup "REGHOTKEY" )(vl-cmdf "MENUUNLOAD" "REGHOTKEY"))<br />                 (prin1)<br />                 (if (null(menugroup "REGHOTKEY"))<br />                         (progn<br />                                 (setq file(strcat(getenv "Temp")"\\REGHOTKEY.mnu"))<br />                                 (setq f (open file "w"))<br />                                 (foreach line<br />                                         (list<br />                                                 "***MENUGROUP=REGHOTKEY"<br />                                                 "***ACCELERATORS"<br />                                                 (strcat "["F1"] ^C^C" string_cmd)<br />                                         )<br />                                         (write-line line f)<br />                                 )<br />                                 (close f)<br />                                 (vl-cmdf "menuload" (findfile file))<br />                         )<br />                 )<br />                 (vl-acad-undefun 'REGHOTKEYmnu)<br />                 (princ)<br />         )<br />         (REGHOTKEYmnu)<br /> )

zwq8629

不知道是不是你要的

e2002

金牌会员都不看帮助文档？AutoCAD 2000 版的自定义帮助文档中就写清楚的内容。

zhongys

foolishzy 发表于 2023-7-3 09:07

可以用了。谢谢

oldstone

为什么不用cui呢？也不需要编程，实现功能速度又快。