社区 › AutoLISP/Visual LISP 编程技术 › 自动生成菜单，疑惑

nyistjz 发表于 2019-3-16 15:47:31

自动生成菜单，疑惑

我想用自动生成菜单的方式来定义F1键，但一直无法成功，请高手指点，感谢 ！

(DEFUN C:DoublEview ()
                     (if (menugroup "DoublEview" ) (command "menuunload" "DoublEview" ))
                     (setq f (open "DoublEview.mnu" "W" ))
                     (write-line "***MENUGROUP=DoublEview" f)
                     (write-line "***ACCELERATORS" f)
                     (write-line "[" F1 "] (DoublEviewLsp)" f)
                     (close f)
                     (command "menuload" "DoublEview.mnu" )
);end DEFUN

qyming 发表于 2019-3-16 17:00:38

:P:victory:

nyistjz 发表于 2019-3-23 22:56:38

终于搞定了！

(defun U:2ViewMnu (/ mnu_name f);创建临时菜单
       (setq mnu_name (strcat (getenv "temp" ) "\\test" ".mnu" )
            f (OPEN mnu_name "w" )
       );end setq
       (write-line "***MENUGROUP=2View" f)
       (write-line "***ACCELERATORS" f)
       (write-line "[\"F1\"](2ViewLsp)" f)
       (close f)
       mnu_name
);end defun

20060510412 发表于 2019-3-24 20:12:14

能否动图演示代码的使用方法

查看完整版本: 自动生成菜单，疑惑