自动生成菜单，疑惑

nyistjz

我想用自动生成菜单的方式来定义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

:P

nyistjz

终于搞定了！

(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

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