本帖最后由 作者 于 2006-2-20 14:00:00 编辑
请教.LISP加载自定义菜单的问题?
做好了自定义的菜单 ABCD.mns
// // AutoCAD 菜单文件 ABCD.mns //
***MENUGROUP=ABCD
***POP1 **FILE ID_TX [图形(&F)] ID_ZQ [锥轴(&N)... Ctrl+N]^C^C_ZQ ID_GLW [管螺纹(&O)... Ctrl+O]^C^C_GLW
lisp的程序是这样的 acad.lsp
(defun S::STARTUP ()
(if (not (menugroup "ABCD")) (progn (command ".menuload" "ABCD.mns") (menucmd "P12=+ABCD.ALIN_ROUTINES") ) )
)
启动AutoCAD后,提示 "加载自定义文件成功。自定义组: ABCD"
用Menuload 检查也显示已经加载,但菜单上就是没有.
用 Menuload 命令手动加载就没问题. |