[求助]关于自定义工具条

bluelover

请问在AutoCAD中能不能将dvb文件关联到某个自定义的按钮？
就是说，先在工具条上增加一个自定义的按钮，然后将dvb文件关联到这个按钮上，
点击这个按钮后就开始运行我的程序。我只知道SolidWorks有这个功能，请问在AuotoCAD中也可以吗？

另外，在AutoCAD的工具条的右键菜单中有一个“自定义”选项，这个可以用来自定义
新的工具条及定制新的按钮，可是我不知道在定制按钮时的“将宏关联到这个按钮”这个输入框应该怎么使用？
麻烦哪位大虾给我较详尽的介绍一下？谢了！

myfreemind

本站的教程有详细的介绍
要不你就把代码写到ｖｂ里，编译一个ｅｘｅ，然后在按钮中这样写：^C^C^P(startapp "L:/fordj.exe")(princ)

yongjunlee

^C^C_-vbarun 运行模块，添加到按钮的宏上。

bluelover

要不要每次都加载模块？

能不能写完整一点儿，假设dvb工程文件放在“d:\test.dvb”

那应该怎样添加到按钮？（就是说关联代码怎么写）

谢谢

liujiping

Sub Example_AddToolbarButton()
    ' This example creates a new toolbar called TestToolbar and inserts a
    ' toolbar button into it. The toolbar is then displayed.
    ' To remove the toolbar after execution of this macro, use the Customize Menu
    ' option from the Tools menu.
   
    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")
   
    ' Add a button to the new toolbar
    Dim newButton As AcadToolbarItem
    Dim openMacro As String
   
    ' Assign the macro string the VB equivalent of "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
   
    Set newButton = newToolBar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
   
   
    ' Display the toolbar
    newToolBar.Visible = True
   
End Sub
看一下以上程序,运行后,在CAD中有一个图标,也可多加几个,形成工具条.再在CAD中改它的图案.一切OK.

bluelover

谢谢

tensir

感谢作者的分享！

lelelewfxy

这是什么代码？