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

841594 · 发表于 2004-2-20 20:10:00

想编的这个程序功能是加载某个菜单，同时仍然加载已有的菜单组。
子程序：获得现有的菜单组：
(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命令:
菜单实用程序已加载。
命令: ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 错误: 出现异常: 0xC0000005 (访问冲突)
请大侠们看看是什么问题，谢谢！

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

发表回复

精选推荐