求哪个高手知道自动插入菜单的命令?
www.dimcax.com
求哪个高手知道自动插入菜单的命令?现在的情况是,用了
(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
ref link:
d
难道没有自动选择插入位置的函数么?
d
请先加载给菜单组,再调试....
请使用winrar软件打开rar压缩文件。
d