- UID
- 267748
- 积分
- 1255
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2005-5-27
- 最后登录
- 1970-1-1
|
发表于 2005-11-11 11:08:51
|
显示全部楼层
Kevin Nehls
Mar 8 2002, 6:09 am show options
Newsgroups: autodesk.autocad.customization
From: "Kevin Nehls" <kevinn at safeworks dot com> - Find messages by this author
Date: Thu, 7 Mar 2002 13:55:05 -0800
Local: Fri, Mar 8 2002 5:55 am
Subject: Re: partial menu help
Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse
Well, FWIW this is what I use on our network to reload our
menu. I've just replaced our menugroup and mns filenames to
something more generic. You may also have to replace the
pop# parts with whatever you use for your menu labels.
(defun LOADMENU ()
(if (menugroup "<your_menugroup_name_here>")
(command "menuunload" "<your_menugroup_name_here>")
)
(if (findfile "your_menu_filename_here.mns")
(progn
(command "menuload" "your_menu_filename_here.mns")
(menucmd
"Gacad.window=+your_menugroup_name_here.pop1")
(menucmd
"Gacad.window=+your_menugroup_name_here.pop2")
(menucmd
"Gacad.window=+your_menugroup_name_here.pop3")
(menucmd
"Gacad.window=+your_menugroup_name_here.pop4")
(menucmd
"Gacad.window=+your_menugroup_name_here.pop5")
)
(alert
"Cannot find YOUR MENU file.\nCheck your support
paths."
)
)
(princ)
)
HTH
--
Kevin Nehls |
|