这个调用菜单的程序出错，问题在哪？

841594

想编的这个程序功能是加载某个菜单，同时仍然加载已有的菜单组。 子程序：获得现有的菜单组： (defun y_menugroup (/ lst)
(vl-load-com)
(setq menus (vla-get-menugroups (vlax-get-acad-object)))
(vlax-for each menus
(setq lst (cons (vla-get-name each) lst))
)
(reverse lst)
) 主程序：加载菜单 (defun y_menuload (menuname / lst1)
(setvar "cmdecho" 0)
(setq lst1 (y_menugroup))
(vl-cmdf "menu" menuname)
(foreach x lst1
(if (not (menugroup x))
(vl-cmdf "menuload" x)
)
)
(princ)
) 调用方法：(y_menuload menuname) 程序能够实现预想的功能，但两三次中会有一次显示下面的出错信息： 命令:
菜单加载成功。菜单组: ACAD
菜单加载成功。菜单组: ly70 命令:
AutoCAD 菜单实用程序已加载。 命令: ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
请大侠们看看是什么问题，谢谢！