[求助]：更新菜单lsp

qjcpj

什么意思？
menu及menuload等命令都可使用啊。
一个例子：

2. 
   
3. ;;;Example
   
4. (defun MYSTARTUP ()
   
5.   (setvar "PROXYNOTICE" 0)
   
6.   (setvar "PROXYSHOW" 1)
   
7.   (if        (/= (strcase (getvar "menuname"))
   
8.                          "D:\\CCAD\\ACAD2005\\ACAD"
   
9.                 )
   
10.          (progn
    
11.                 (command "menu" "d:\\ccad\\acad2005\\acad.mnu")
    
12.          )
    
13.   )
    
14.   (if        (= (menugroup "CCAD2005") nil)
    
15.          (progn
    
16.                 (setq filedia (getvar "FILEDIA"))
    
17.                 (setq cmdecho (getvar "CMDECHO"))
    
18.                 (setvar "FILEDIA" 0)
    
19.                 (setvar "CMDECHO" 0)
    
20.                 (command "menuload" "CCAD2005.MNU")
    
21.                 (menucmd "P3=+CCAD2005.pop1")
    
22.                 (menucmd "P4=+CCAD2005.pop2")
    
23.                 (setvar "FILEDIA" filedia)
    
24.                 (setvar "CMDECHO" cmdecho)
    
25.          )
    
26.   )
    
27. )

<br /> ;;;Example<br /> (defun MYSTARTUP ()<br />   (setvar "PROXYNOTICE" 0)<br />   (setvar "PROXYSHOW" 1)<br />   (if        (/= (strcase (getvar "menuname"))<br />                          "D:\\CCAD\\ACAD2005\\ACAD"<br />                 )<br />          (progn<br />                 (command "menu" "d:\\ccad\\acad2005\\acad.mnu")<br />          )<br />   )<br />   (if        (= (menugroup "CCAD2005") nil)<br />          (progn<br />                 (setq filedia (getvar "FILEDIA"))<br />                 (setq cmdecho (getvar "CMDECHO"))<br />                 (setvar "FILEDIA" 0)<br />                 (setvar "CMDECHO" 0)<br />                 (command "menuload" "CCAD2005.MNU")<br />                 (menucmd "P3=+CCAD2005.pop1")<br />                 (menucmd "P4=+CCAD2005.pop2")<br />                 (setvar "FILEDIA" filedia)<br />                 (setvar "CMDECHO" cmdecho)<br />          )<br />   )<br /> )