加载下拉菜单

tsxljj

学学看。

lazybones

郑大老板真乃高手，我正冥思苦想如何确保把自定义的菜单在不同的acad都插在同一位置呢。 不过我的程序浅显易懂 ：） ;;加载自定义菜单
(defun c:ldmu ()
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuload" "menutest")
(menucmd "p11=+mymenu.pop1");注意=之后的+
(setvar "filedia" pre_filedia)
(princ)
)
;;卸载自定义菜单
(defun c:uldmu ()
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuunload" "mymenu")
(setvar "filedia" pre_filedia)
(princ)
)

lazybones

整合之后，不过将菜单项改为倒数第二项了。 ;;加载自定义菜单到倒数第二项
;;菜单文件名为menutest.mnu，MENUGROUP=MYMENU
(defun c:ldmu (/ pre_filedia CNT)
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuload" "menutest")
(setq CNT 1)
(while (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
)
(if (> CNT 1)
(setq CNT (- CNT 1))
(setq CNT 1)
)
(menucmd (strcat "P" (itoa CNT) "=+mymenu.pop1"))
(setvar "filedia" pre_filedia)
(princ)
)
;;卸载自定义菜单
(defun c:uldmu (/ pre_filedia)
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuunload" "mymenu")
(setvar "filedia" pre_filedia)
(princ)
)

lazybones

加载、卸载前先判断是否已经加载 ;;加载自定义菜单到倒数第二项
;;菜单文件名为menutest.mnu，MENUGROUP=MYMENU
(defun c:ldmu (/ pre_filedia CNT)
(if (not (menugroup "mymenu"))
(progn
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuload" "menutest")
(setq CNT 1)
(while (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
)
(if (> CNT 1)
(setq CNT (- CNT 1))
(setq CNT 1)
)
(menucmd (strcat "P" (itoa CNT) "=+mymenu.pop1"))
(setvar "filedia" pre_filedia)
)
(prompt "\n菜单已加载！")
)
(princ)
)
;;卸载自定义菜单
(defun c:uldmu (/ pre_filedia)
(if (menugroup "mymenu")
(progn
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuunload" "mymenu")
(setvar "filedia" pre_filedia)
)
(prompt "\n未找到需要卸载的菜单！")
)
(princ)
)

tukuitk

飞哥的程序一定要好好看看的！

小妹丁

不看不行

hougang111

飞版主你好，我是个初学者，想用lisp 语言在AutoCAD的菜单栏上加上一个菜单(“液压零件库”)，能通过调用菜单调用名种零件，你能给我一点提示吗？


我在把零件做成经幻灯片后，请用如何在这个基础上建成一个图形库呢？


谢 谢!

meflying

你要把图画好了，存成一个或多个文件，，我写过一个插入图块的程序，你可以搜索一下。。。

crane_QS

xuexi

spring

meflying发表于2004-3-30 14:06:00既然你已知道menucmd这个函数，为什么不自己去试一下，要到这里问是否可以？？？ 希望你自己琢磨出来后再看： (menucmd \"p11=menug...

我也回复一个看看