zhongys 发表于 2023-7-1 22:09:59

如何设置键盘的F1,F2键

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

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

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

zhongys 发表于 2023-7-2 17:28:29

程式已写好，已注册为透明命令了。就差改改键盘的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 发表于 2023-7-3 09:07:44

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

zwq8629 发表于 2023-7-2 09:37:48

不知道是不是你要的

e2002 发表于 2023-7-3 14:04:59

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

zhongys 发表于 2023-7-3 19:27:34

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

可以用了。谢谢

oldstone 发表于 2023-11-7 08:46:04

为什么不用cui呢？也不需要编程，实现功能速度又快。
页: [1]
查看完整版本: 如何设置键盘的F1,F2键