[求助]：真心请教各位高手，程序加载菜单的问题

841594

我在acad2002中用visual lisp编写了下面的程序，想实现的功能是加载指定的菜单，同时保留当前已加载的所有菜单组，实现下拉菜单的切换。
但程序不很稳定，有时出现出错信息:

命令:
AutoCAD 菜单实用程序; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)

出错后有时会造成acad崩溃。

请各位帮我看看，这段程序问题在哪？如果是acad本身的问题，有没有其他的办法来实现上述的功能呢？

[PROGRAM]

;;取得当前加载的菜单组列表

(defun ly_menu_group_file (/ lst menus each aco)
  (vl-load-com)
  (setq menus (vla-get-menugroups (vlax-get-acad-object)))
  (vlax-for each menus
    (setq
      lst (cons        (cons (vla-get-name each) (vla-get-menufilename each))
                lst
          )
    )
  )
  (vlax-release-object menus)
  (reverse lst)
)

;;菜单加载

(defun ly_menuload (menuname / lst1 x menufullname)
  (setvar "cmdecho" 0)

  (princ "\n菜单加载程序 v0.9 ")
  (setq lst1 (ly_menu_group_file))
;  (prompt "\n请按任意键继续... ")
;  (grread)
;;;  (princ "\ntest")
  (cond
    ((and (setq        menufullname
                 (cdr
                   (assoc
                     (strcase menuname)
                     (mapcar
                       '(lambda (x) (cons (strcase (car x)) (cdr x)))
                       lst1
                     )
                   )
                 )
          )
          (/= menufullname "")
     )
     (vl-cmdf "menu" menufullname)
;;;     (princ "\ntrue")
    )
    ((or (findfile (strcat menuname ".mnu"))
         (findfile (strcat menuname ".mnc"))
     )
     (vl-cmdf "menu" menuname)
    )
    (1 (princ (strcat "\n菜单 " menuname " 没有找到. ")))
  )
  (foreach x lst1
    (or        (menugroup (car x))
        (not (cdr x))
        (vl-cmdf "menuload" (cdr x))
    )
  )
  (princ)
)
[/PROGRAM]