关于创建新工具栏 （VBA/ActiveX）
若要创建新工具栏，请使用该方法将新对象添加到集合中。AddToolbarToolbars 该方法需要输入要添加的工具栏的名称。该名称是一串字母数字字符，除了短划线 （-） 或下划线 （_） 外，没有标点符号。名称是标识集合中工具栏的最简单方法。Add 创建工具栏后，您可以更改工具栏的名称。若要更改现有工具栏的名称，请使用该工具栏的属性。Name 创建新工具栏本示例在集合中的第一个菜单组中创建一个名为“TestToolbar”的新工具栏。MenuGroups Sub Ch6_CreateToolbar()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' Create the new toolbar
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
End Sub
相关概念 |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-5 15:37
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
