Gu_xl 发表于 2005-4-13 12:09:00

求教：在Lisp程序中用(command "menuload" "自定义菜单")加载自定义菜单后。。

求教：在Lisp程序中用(command "menuload" "自定义菜单")加载自定义菜单后。。。求教：在Lisp程序中用(command "menuload" "自定义菜单")加载自定义菜单后，自定义菜单项在菜单栏中并不显示，需要在AutoCAD命令下运行Menuload命令后，在对话框中把自定义菜单项一一加入AutoCAD菜单，我觉得这样太麻烦，有什么办法可以在Lisp程序中实现这一点？

ljpnb 发表于 2005-4-13 12:42:00

直接修改acad.mnu文件，把自定义菜单的内容加入到acad.mnu中

andyding 发表于 2005-4-13 20:33:00

我刚学的,给个参考吧.有没有用,你先整整看!


(defun Load_abc ()<BR>                               (command "_menuload" "D:\\abc\\abc.mns"))               ;;菜单文件路径<BR>       (if (not (menugroup "abc"))<BR>                       (Load_abc)<BR>       )<BR>(menucmd "p11=+abc.pop1")<BR>(menucmd "p12=+abc.pop2")


把上面这段存为acad.lsp.放在CAD找得着的地方就行了.

cheng5276 发表于 2015-5-9 20:43:04

哈哈，竟然有幸看到Gu版10年前的求助帖
今天我也碰到了这个问题，折腾的我够呛
(menucmd "p11=+abc.pop1") 这句超棒，帮了我大忙
谢谢【andyding】

sjl_fyl 发表于 2023-12-28 14:28:59

{:1_1:}有用

baitang36 发表于 2023-12-28 15:53:26

cheng5276 发表于 2015-5-9 20:43
哈哈，竟然有幸看到Gu版10年前的求助帖
今天我也碰到了这个问题，折腾的我够呛
(menucmd "p11=+abc.pop1" ...

你见证了一个大侠的成长历程:lol

664571221 发表于 2024-2-4 17:19:32

今天搜这个问题，竟然能看到大佬的求助帖，牛逼

664571221 发表于 2024-2-4 17:25:13

sjl_fyl 发表于 2023-12-28 14:28
有用

你好怎么用
页: [1]
查看完整版本: 求教：在Lisp程序中用(command "menuload" "自定义菜单")