请问 怎样删除工具栏上的一个图标呢？
怎样删除工具栏上的一个图标，或者全部删除呢？vla-RemoveMenuFromMenuBar
这个函数可以用吗？具体是怎么操作呢。哪位大神教一下
在这里先谢过.
这个问题我已经解决了，
用（vla-deleteobject） 就可以了
object如果是工具条，就删除整个工具条
如果是工具条上的按钮，就删除单个按钮
;;;这个函数可以获取指定名称的工具条对象
(defun TB:ChikToolBarByName (pToolBar pName / i rev)
(setq rev :vlax-false)
(vlax-for i (vla-get-ToolBars pToolBar)
(if (= pName (vla-get-Name i))
(setq rev i)
)
)
rev
)
;;;这个函数可以获取某个工具条上的按钮
(defun TB:ChikButtonByName (pToolBar pName / btn rev len i)
(setq rev :vlax-false)
(setq i -1)
(if (> (setq len (vla-get-count pToolBar)) 0)
(repeat len
(setq btn (vla-Item pToolBar (setq i (1+ i))))
(if (= pName (vla-get-Name btn))
(setq rev btn)
)
)
)
rev
)
得到了object之后就可以用vla-delete直接删除。
真的牛……
页:
[1]