[求助]：Vlisp > 工具栏问题

daziran

用vlisp 代码添加了工具栏后，关掉ACAD，再启动，发现添加的工具栏不见了。好像是没有“保存”一样！
那位指导指导？

2. 
   
3. 
   
4. ;;;添加工具条
   
5. ;;;直接装入文件, 没有定义函数
   
6. (vl-load-com)
   
7. (setq acadobject   (vlax-get-acad-object)
   
8.       acaddocument (vla-get-activedocument acadobject)
   
9.       mspace           (vla-get-modelspace acaddocument)
   
10. )
    
11. (setq menugroups (vla-get-menugroups acadobject))
    
12. (setq currmenugroup (vla-item menugroups "acad"))
    
13. (setq toolbars (vla-get-toolbars currmenugroup))
    
14. 
    
15. ;;;添加工具栏:
    
16. (setq newtoolbar (vla-add toolbars toolbarname))
    
17. 
    
18. ;;;按钮1  动画线(c:repline)
    
19. (setq macro (strcat (chr 3)
    
20.                     (chr 3)
    
21.                     "repline"
    
22.                     (chr 32)
    
23.             )
    
24. )
    
25. (setq barbutton1
    
26.        (vla-addtoolbarbutton
    
27.          newtoolbar number "动态画线" "动态画线：repline" macro)
    
28. )
    
29. 
    
30. ;;;设置位图
    
31. (vla-setbitmaps    barbutton1    "repline1.bmp"   "repline2.bmp" )
    
32. 
    
33. (princ)
    
34. 
    

<br /> <br /> ;;;添加工具条<br /> ;;;直接装入文件, 没有定义函数<br /> (vl-load-com)<br /> (setq acadobject   (vlax-get-acad-object)<br />       acaddocument (vla-get-activedocument acadobject)<br />       mspace           (vla-get-modelspace acaddocument)<br /> )<br /> (setq menugroups (vla-get-menugroups acadobject))<br /> (setq currmenugroup (vla-item menugroups "acad"))<br /> (setq toolbars (vla-get-toolbars currmenugroup))<br /> <br /> ;;;添加工具栏:<br /> (setq newtoolbar (vla-add toolbars toolbarname))<br /> <br /> ;;;按钮1  动画线(c:repline)<br /> (setq macro (strcat (chr 3)<br />                     (chr 3)<br />                     "repline"<br />                     (chr 32)<br />             )<br /> )<br /> (setq barbutton1<br />        (vla-addtoolbarbutton<br />          newtoolbar number "动态画线" "动态画线：repline" macro)<br /> )<br /> <br /> ;;;设置位图<br /> (vla-setbitmaps    barbutton1    "repline1.bmp"   "repline2.bmp" )<br /> <br /> (princ)<br /> <br />

e2002

这种动态加入的应该是没有保存的...

daziran

最后加了这个代码，可以保存。不知这是不是正宗方法？ ：）
(vla-save currmenugroup acmenufilesource)