[LISP程序]：求教下拉菜单制作

twist

本人初学LSP（R14版本），先编了一个
plus.lsp

(DEFUN c:plus32()
(SETQ A (+ 3 2 ) )
)

然后试图把它利用菜单加载

mylisp.mnu

***menugroup=mylisp

***pop 16
[加法]
[3+2] ^p^c^c (load "plus") (plus32)

在CAD里面加载之后能出现下拉菜单，但点击该命令使用时，却出现出错信息:"menu load failed. file not found HIGHLIGHT (mnu.mns.mnc)":"menu load failed. file not found 1. (mnu.mns.mnc)"等数条信息，就不执行该LSP。怎么回事

另外，下次重新启动CAD后，菜单里面没有了我上次加载的[加法]，请问问题出在哪里，难道需要每次使用MENULOAD吗。
请指教，谢谢.

eachy

菜单文件必须在CAD的支持路径下，查看 config －》support files

twist

在制作MNU之前已经在CAD支持路径下添加了本文件所在路径。
主要是对出现这些HIGHLIGHT。MNU，1。MNU，ON。MNU，UNDO。MNU的加载失败感到奇怪，从来没有要求加载这些东西呀。
另外重新打开CAD上次加载的菜单也不见了。
thanks

回帖2
对付加载错误，我的办法是新建空白文件highlight.mns,1.mns,undo.mns等，虽然会在MENULOAD里面多了些无用的垃圾。但再加载MYLISP。MNU时就没这些错误对话框弹出来了，只是在COMMAND栏仍然有
Unable to load menu: HIGHLIGHT
A menu with that MENUGROUP name already exists.
Unable to load menu: 1
A menu with that MENUGROUP name already exists.
Menu loaded successfully. MENUGROUP: UNDO
Unknown command "E".  Press F1 for help.
((ST) (IF (AND (/= ST "Function cancelled") (/= ST "quit / exit abort")) (PRINC
(STRCAT "\n错误: " ST "\n"))) (XDRX_SYSVAR_POP) (XDRX_DRAWING_VIEWRES)
(XDRX_PBAREND) (XDRX_END) (SETQ *ERROR* $XDLSP_ERROR))*Cancel*

但原LSP能够执行
Command: plus32
5

但重新打开CAD菜单消失问题无法解决。

aeo

^p^c^c (load "plus") (plus32)没这样写的!

1. 
   
2. ^p^c^c(load "plus");^pplus32;
   

复制代码

这是天正的一段:

1. 
   
2. **TOOL4_
   
3. Id_Tool4_      [_Toolbar("Tool4_", _Bottom, _Hide, 0, 0, 1)]
   
4. Id_Rduplac     [_Button("消除重线", "Tch_16_Rduplac", "Tch_24_Rduplac")]^P^C^C(_@Ld"Ini_Lyr");(_@Ld"Rduplac");^P(Rduplac(Ini_Lyr));
   
5. Id_Rdupent     [_Button("消重图元", "Tch_16_Rdupent", "Tch_24_Rdupent")]^P^C^C(_@Ld"Ini_Lyr");(_@Ld"Rdupent");^P(Rdupent(Ini_Lyr));
   
6. Id_SeOutline   [_Button("搜索轮廓", "Tch_16_Sslk", "Tch_24_Sslk")]^C^CTSeOutline
   

复制代码