工具栏如何更新配置？增加内容之后，再次加载还是没法更新。

guerearou

根据论坛里面大神的lisp制作自定义工具栏方法，创建出来了一个比较合适的工具栏。
在加载工具栏的过程中不免会因为自己考虑不周，而漏掉了一些按钮，但是当第二次加载这个工具栏的时候，没法将按钮加载上去了。哪怕加载之前，先用menuLoad卸载了原来加载的也不行。只有删除掉cui和mnr两个文件，再次加载，才会变化。
我就想问，有办法在每次加载之前就删除掉这两个根据mnu自动生成的配置文件么？
本来试着用

• (vl-file-delete namen)这个函数来删除的，但是提示的是参数错误。
  

• (defun c:scc()
• ;(vl-load-all)
• (setq file (open "namen.mnu" "W"))    ;创建工具栏
•       (foreach x '("***MENUGROUP=SLtool\n\n***TOOLBARS\n**SLtool"
• "ID_ZCT001      [_Toolbar(\"算量工具栏\", _Right, _show, 0, 0, 1)]"
• "ID_SL012           [_Button(\"按层选\",\ \"RCDATA_16_PLANESURF\", \"RCDATA_16_PLANESURF\")]^C^Cv"
• "ID_SL012          [_Button(\"多线\", \"RCDATA_16_OSNPAR\", \"RCDATA_16_OSNPAR\")]^C^Cb"
• "ID_SL012          [_Button(\"新层\", \"RCDATA_16_CURLAY\", \"RCDATA_16_CURLAY\")]^C^Cxx"
• "ID_SL012           [_Button(\"块数量\", \"RCDATA_16_DONUT\", \"RCDATA_16_DONUT\")]^C^Ckk"
• "ID_Dist          [_Button(\"帮助\", \"RCDATA_16_PTFY\", \"RCDATA_16_PTFY\")]^C^Chh"
• )
• (princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件
•       )
•       (close file)         ; 关闭mnu文件
• (vl-file-delete namen)
• )
  

贴上代码   因为论坛搜索了好多次都找不到，于是就只好自己发帖子了。

wzg356

创建并加载后三个都删除
....
(close file)
(command "menuload" "namen.mnu")
(vl-file-delete  "namen.mnu")
(vl-file-delete  "namen.cui")
(vl-file-delete  "namenr.mnr")

guerearou

wzg356 发表于 2014-12-23 18:06
创建并加载后三个都删除
....
(close file)

我试着用了你说的方法，新的问题就是文件是删除了，但是加载上去的东西也没有图标了。功能倒是还在。
另外你知道如何在加载之前先把这个工具栏卸载掉不

guerearou

wzg356 发表于 2014-12-23 18:06
创建并加载后三个都删除
....
(close file)

尝试在加载之后，自己手动删除生成的工具栏配置文件，CAD里面显示还是i正常的，但是在LISP中写上删除之后，也是写在了加载工具栏之后， 结果就是没有图标显示。

wzg356

guerearou 发表于 2014-12-23 19:43
我试着用了你说的方法，新的问题就是文件是删除了，但是加载上去的东西也没有图标了。功能倒是还在。
另 ...

点工具栏图标区，右键-算量工具栏-勾选你的工具条，下次就不用了

guerearou

wzg356 发表于 2014-12-23 18:06
创建并加载后三个都删除
....
(close file)

好吧，我最后把删除放到了帮助的图标下面，只要点击下帮助就会删除掉图标的。也是算一个办法吧。实在无奈啊。感谢你提供的帮助了。