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

841594 · 发表于 2004-2-19 22:37:00

如题，请指点，谢谢！

cqnj023 · 发表于 2004-2-20 05:39:00

(setq dd (getvar "MENUNAME"))

841594 · 发表于 2004-2-20 13:40:00

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

王咣生 · 发表于 2004-2-20 14:05:00

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

无痕 · 发表于 2004-2-20 15:19:00

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)

841594 · 发表于 2004-2-20 19:24:00

copy


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

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

发表回复

精选推荐