[编程交流] 加载菜单时出现问题

 
;set the flag
(setq flag1 T)
;check if the "TESTMENU" menu is loaded
(setq loaded (menugroup "TESTMENU"))
;if it's not
(if (= loaded nil)
  (progn
       ;find the menu file
       (setq temp (findfile "TESTMENU.MNU"))
          ;if it's found
          (if temp
    (progn
   (setvar "FILEDIA" 0)
                 ;load the "TESTMENU" menu
   (command "menuload" "TESTMENU")
   (setvar "FILEDIA" 1)
                 ;load the pulldown menu
   [color=red](menucmd "P11=+TESTMENU.POP1")[/color]
                 ;Inform the user
          (prompt "\nLoading TESTMENU Custom Menu....\n")
 );progn
 (progn   
                ;if it's NOT found, inform the user
                (alert "Cannot Locate TESTMENU Menu.")
                ;then clear the flag
  (setq flag1 nil)
 );progn
   );if
   );progn
);if
               ;if the menu is loaded
 (if flag1
                 ;inform the user 
         (prompt "\nTESTMENU Custom Menu Loaded....")
 );if
(princ)
);defun
(princ)

 
(menucmd "P[b]16[/b]=+TESTMENU.POP1")