求哪个高手知道自动插入菜单的命令?
现在的情况是,用了<br/>(defun C:AY(/ Menufilename i)<br/> (setvar "cmdecho" 0)<br/> (if (null (menugroup "ayunger"));autoCAD中未加载给菜单组.<br/> (progn<br/> (setq Menufilename (findfile "ayunger.mnu"));Search from autocad setup folder.<br/> (if (null Menufilename)<br/> (setq Menufilename (getfiled "打开AYUNGER菜单文件" "Ayunger.mnu" "mnu" 4))<br/> );end_if<br/> (if (null Menufilename) (exit));open dialog is ""Cancle" press.<br/> <br/> (setq i 1)<br/> (while (< i 24)<br/> (if (menucmd (strcat "P" (itoa i) ".1=?"))<br/> (setq i (+ i 1));then<br/> (progn;else<br/> (vl-cmdf "_menuload" Menufilename)<br/> (menucmd (strcat "P" (itoa i) "=+Ayunger.POP1"))<br/> (princ "\n◎ 工具菜单已加载,欢迎您使用。邮箱:AyungerStudio@163.com QQ:420304230")<br/> (setq i 25)<br/> );end_progn<br/> );end_if<br/> );end_while i<br/> );end_progn<br/> );end_if<br/> (prin1)<br/>);end_defun<br/><br/>这段函数,好像只能实现把菜单加入menuload命令里面那个地方,不能真正实现插入下拉菜单,还得手动选择一下才行,哪个高手知道怎么写能把菜单自动插入进去而不用menuload来设置呢?<br/> <p>Ref link:</p><p><a href="http://www.afralisp.net/Tips/code112.htm">http://www.afralisp.net/Tips/code112.htm</a><br/><a href="http://www.afralisp.net/Tips/code1.htm">http://www.afralisp.net/Tips/code1.htm</a></p><p><a href="http://forums.augi.com/archive/index.php/t-54201.html">http://forums.augi.com/archive/index.php/t-54201.html</a><br/><a href="http://feeds.autodesk.com/thread.jspa?threadID=349942">http://feeds.autodesk.com/thread.jspa?threadID=349942</a><br/><a href="http://discussion.autodesk.com/forums/thread.jspa?threadID=460630&tstart=11325">http://discussion.autodesk.com/forums/thread.jspa?threadID=460630&tstart=11325</a></p><p></p> 难道没有自动选择插入位置的函数么? 请先加载给菜单组,再调试....<br/>
页:
[1]