求助,怎么在窗口中自定义工具栏

zxyyanhf

各位大侠好，我现在用VB做AutoCAD的二次开发,遇到一个问题。怎么可以用VB在AutoCAD中创建一个新的自定义工具窗口？

zxyyanhf

急，请大家帮帮忙！

wyj7485

这是VBA程序，稍做改动就可以

2. sub test()
3. Dim mymenugroup As AcadMenuGroup
4. Set mymenugroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
5. Dim MYToolbar As AcadToolbar
6. MYToolbar = mymenugroup.Toolbars.Add("我的工具")
7. Dim SysCmd As String
8. Dim SysCmdbutton As AcadToolbarItem
9. SysCmd = Chr(3) + Chr(3) + Chr(95) + "Open" + Chr(32)
10. Set SysCmdbutton = SysToolbar.AddToolbarButton("", "打开文件", "打开文件:OPEN", SysCmd)
11. SysCmdbutton.SetBitmaps "open.bmp", "open.bmp" ' 小、大图标
12. end sub

sub test() Dim mymenugroup As AcadMenuGroup Set mymenugroup = ThisDrawing.Application.MenuGroups.Item("ACAD") Dim MYToolbar As AcadToolbar MYToolbar = mymenugroup.Toolbars.Add("我的工具") Dim SysCmd As String Dim SysCmdbutton As AcadToolbarItem SysCmd = Chr(3) + Chr(3) + Chr(95) + "Open" + Chr(32) Set SysCmdbutton = SysToolbar.AddToolbarButton("", "打开文件", "打开文件:OPEN", SysCmd) SysCmdbutton.SetBitmaps "open.bmp", "open.bmp" ' 小、大图标 end sub

zxyyanhf

谢谢楼上的大侠！！