求哪个高手知道自动插入菜单的命令?

sefiroth

现在的情况是,用了
(defun C:AY(/ Menufilename i)
    (setvar "cmdecho" 0)
    (if (null (menugroup "ayunger"));AutoCAD中未加载给菜单组.
        (progn
            (setq Menufilename (findfile "ayunger.mnu"));Search from autocad setup folder.
            (if (null Menufilename)
                (setq Menufilename (getfiled "打开AYUNGER菜单文件" "Ayunger.mnu" "mnu" 4))
            );end_if
            (if (null Menufilename) (exit));open dialog is ""Cancle" press.
           
            (setq i 1)
            (while (< i 24)
                (if (menucmd (strcat "P" (itoa i) ".1=?"))
                    (setq i (+ i 1));then
                    (progn;else
                        (vl-cmdf "_menuload" Menufilename)
                        (menucmd (strcat "P" (itoa i) "=+Ayunger.POP1"))
                        (princ "\n◎ 工具菜单已加载,欢迎您使用。邮箱:AyungerStudio@163.com QQ:420304230")
                        (setq i 25)
          );end_progn
                );end_if
            );end_while i
        );end_progn
    );end_if
    (prin1)
);end_defun

这段函数,好像只能实现把菜单加入menuload命令里面那个地方,不能真正实现插入下拉菜单,还得手动选择一下才行,哪个高手知道怎么写能把菜单自动插入进去而不用menuload来设置呢?

Andyhon

Ref link:

http://www.afralisp.net/Tips/code112.htm
http://www.afralisp.net/Tips/code1.htm

http://forums.augi.com/archive/index.php/t-54201.html
http://feeds.autodesk.com/thread.jspa?threadID=349942
http://discussion.autodesk.com/forums/thread.jspa?threadID=460630&tstart=11325

sefiroth

难道没有自动选择插入位置的函数么?

Andyhon

请先加载给菜单组,再调试....