请问 怎样删除工具栏上的一个图标呢？

zjh2785

怎样删除工具栏上的一个图标，或者全部删除呢？
vla-RemoveMenuFromMenuBar
这个函数可以用吗？  具体是怎么操作呢。哪位大神教一下
在这里先谢过.

zjh2785

这个问题我已经解决了，
用（vla-delete  object） 就可以了
object如果是工具条，就删除整个工具条
如果是工具条上的按钮，  就删除单个按钮

1. ;;;这个函数可以获取指定名称的工具条对象
   
2. (defun TB:ChikToolBarByName (pToolBar pName / i rev)
   
3.   (setq rev :vlax-false)
   
4.   (vlax-for i (vla-get-ToolBars pToolBar)
   
5.     (if        (= pName (vla-get-Name i))
   
6.       (setq rev i)
   
7.     )
   
8.   )
   
9.   rev
   
10. )
    
11. ;;;这个函数可以获取某个工具条上的按钮
    
12. (defun TB:ChikButtonByName (pToolBar pName / btn rev len i)
    
13.   (setq rev :vlax-false)
    
14.   (setq i -1)
    
15.   (if (> (setq len (vla-get-count pToolBar)) 0)
    
16.     (repeat len
    
17.       (setq btn (vla-Item pToolBar (setq i (1+ i))))
    
18.       (if (= pName (vla-get-Name btn))
    
19.         (setq rev btn)
    
20.       )
    
21.     )
    
22.   )
    
23.   rev
    
24. )
    

;;;这个函数可以获取指定名称的工具条对象<br /> (defun TB:ChikToolBarByName (pToolBar pName / i rev)<br />   (setq rev :vlax-false)<br />   (vlax-for i (vla-get-ToolBars pToolBar)<br />     (if        (= pName (vla-get-Name i))<br />       (setq rev i)<br />     )<br />   )<br />   rev<br /> )<br /> ;;;这个函数可以获取某个工具条上的按钮<br /> (defun TB:ChikButtonByName (pToolBar pName / btn rev len i)<br />   (setq rev :vlax-false)<br />   (setq i -1)<br />   (if (> (setq len (vla-get-count pToolBar)) 0)<br />     (repeat len<br />       (setq btn (vla-Item pToolBar (setq i (1+ i))))<br />       (if (= pName (vla-get-Name btn))<br />         (setq rev btn)<br />       )<br />     )<br />   )<br />   rev<br /> )<br />

得到了object之后就可以用vla-delete直接删除。

paulpipi

真的牛……