求助飞哥，菜单自动加载

贱人

我的菜单下面这样的，放在d:\abc.mns，那这句话 (AddMenu "d:\\abc.mns" xxx xxx 1) 怎么写？ ***MENUGROUP=sky
***POP30
[ccc]
[加载]appload (defun AddMenu (AddMenu "d:\\abc.mns" xxx xxx 1)
(setq APP (vlax-get-acad-object))
(setq MGS (vla-get-menugroups APP))
(setq MG (vl-catch-all-apply 'vla-Item (list MGS groupname)))
(if (vl-catch-all-error-p MG)
(setq MG (vla-load MGS fname))
)
(setq PMS (vla-get-menus MG))
(vla-insertmenuinmenubar PMS popname index)
)

meflying

晕,别人的东西不要随便改好不好? (defun AddMenu (fname groupname popname index / APP MG MGS PMS)
(setq APP (vlax-get-acad-object))
(setq MGS (vla-get-menugroups APP))
(setq MG (vl-catch-all-apply 'vla-Item (list MGS groupname)))
(if (vl-catch-all-error-p MG)
(setq MG (vla-load MGS fname))
)
(setq PMS (vla-get-menus MG))
(vla-insertmenuinmenubar PMS popname index)
) 看字面就知道该怎么写了... 那两个XXX和你菜单中哪个东西比较象呢?

贱人

(defun AddMenu (d:\abc.mns sky pop30 6 / APP MG MGS PMS)


改成这样了，说语法错误！

meflying

2楼都已经晕了,你怎么还改啊???

贱人

meflying发表于2004-3-30 14:58:00加载并显示菜单： 参数：fname——菜单文件index——显示的位置(defun AddMenu (fname groupname popname index / APP MG MGS PMS)   (setq A...

1. 我是菜鸟.飞哥的程序我看不懂. 我的菜单文件名是ABC.MNS,路径是D:\,怎么套入你的程序?

复制代码

(AddMenu "d:\\abc.mns" xxx xxx 1);1表示显示位置，你可以更改你需要的，中间的groupname 和 popname在菜单文件中，你能写自定义菜单，这个就应该知道是什么  啊?到底能不能改啊，我只想加载一个lisp后把我的菜单自动显示在第6个位置我更晕了...

meflying

程序是用来“使用”的，不是用来改的。。。别人写的东西你最好不要改，直接使用就可以了，加载后，在命令行输入：


(AddMenu "d:\abc.mns" "sky" "pop30" 6)


;你的那种改法不知道从哪儿看来的，

walisp

你们讲的好高深呀，什么叫做菜单呀？

无痕

点菜的单子

ZZXXQQ

就是菜谱

花开梦落

各位高手，既然他不知何为菜单也不必真让他上饭馆去找，告诉他找本CAD的入门书看看不就行了。