zxyyanhf 发表于 2007-3-8 08:48:00

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

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

zxyyanhf 发表于 2007-3-8 08:52:00

急，请大家帮帮忙！

wyj7485 发表于 2007-3-8 09:59:00

这是VBA程序，稍做改动就可以
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 发表于 2007-3-15 11:33:00

谢谢楼上的大侠！！
页: [1]
查看完整版本: 求助,怎么在窗口中自定义工具栏