怎样用lisp取得目前加载的菜单组？

841594

如题，请指点，谢谢！

cqnj023

(setq dd (getvar "MENUNAME"))

841594

cqnj023发表于2004-2-20 5:39:00(setq dd (getvar \"MENUNAME\"))

menuname变量是menu命令加载的主菜单，但同时还会有menuload命令加载的其他菜单组，如bonus菜单，我想问的是，怎样才能得到所有的菜单组？

Ea

除了ActiveX方法还没有见到纯Lisp方式，在goolge中用Vla-get-menus 搜索有现成的函数。

王咣生

Visual Lisp方法: (vl-Load-COM)
(setq *acad-object* nil) ; Initialize global variable
(defun vlex-AcadObject ()
(cond (*acad-object*) ; Return the cached object
(T
(setq *acad-object* (vlax-Get-Acad-Object))
)
)
) (defun vlex-MenuGroups ()
(vla-get-menugroups (vlex-AcadObject))
) (defun vlex-MenuGroups-ListAll ( / out)
(vlax-for each (vlex-MenuGroups)
(setq out (cons (vla-get-name each) out))
)
(reverse out)
) 命令: (vlex-MenuGroups-ListAll)

无痕

2. (vlax-for mg (vlax-get (vlax-get-acad-object) 'menugroups) (setq mglst (cons(vla-get-name mg) mglst )))

(vlax-for mg (vlax-get (vlax-get-acad-object) 'menugroups) (setq mglst (cons(vla-get-name mg) mglst )))