用VBA做的工具条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或

lgc-ty

用VBA做的工具条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记???[br]用VBA做的工具条,如何通过菜单实现工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记??? 我用AutoCAD2002 谢谢 lgc

qinlong_01

请问搂主大哥，你做的工具条上的工具栏图标放在什么位置，怎么引用自己的图标啊？？

qinlong_01

这个问题我也困惑很久了，        帮 顶！！！

pmq

Dim newToolBarSeparator As AcadToolbarItem
Dim SmallBitmapName(42) As String
Dim LargeBitmapName(42) As String
Set MenuGroupObject = ThisDrawing.Application.MenuGroups.Item(0)
Set ToolbarObject = MenuGroupObject.Toolbars.Add("测量菜单")
Dim Popen As String
Popen = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(13)
Set ButtonObject(1) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打开文件", "打开文件", Popen)
Dim Psave As String
Psave = Chr(3) + Chr(3) + Chr(95) + "qsave" + Chr(13)
Set ButtonObject(2) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "保存文件", "保存文件", Psave)
Dim Pprinter As String
Pprinter = Chr(3) + Chr(3) + Chr(95) + "plot" + Chr(13)
Set ButtonObject(3) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打印文件", "打印文件", Pprinter)
Dim Pcut As String
Pcut = Chr(3) + Chr(3) + Chr(95) + "cutclip" + Chr(13)
Set ButtonObject(4) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "剪切", "剪切", Pcut)
Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1)
Dim pCopy As String
pCopy = Chr(3) + Chr(3) + Chr(95) + "copyBase" + Chr(13)
Set ButtonObject(5) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "带基点复制", "带基点复制", pCopy)
Dim Ppaste As String
Ppaste = Chr(3) + Chr(3) + Chr(95) + "pasteclip" + Chr(13)
Set ButtonObject(6) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "粘贴", "粘贴", Ppaste)
Dim Pbreak As String
Pbreak = Chr(3) + Chr(3) + Chr(95) + "break" + Chr(13)
Set ButtonObject(7) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "打断", "打断", Pbreak)
Set newToolBarSeparator = ToolbarObject.AddSeparator(ToolbarObject.Count + 1)
Dim Ptrim As String
Ptrim = Chr(3) + Chr(3) + Chr(95) + "trim" + Chr(13)
Set ButtonObject(8) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "截断", "截断", Ptrim)
Dim Pextend As String
Pextend = Chr(3) + Chr(3) + Chr(95) + "extend" + Chr(13)
Set ButtonObject(9) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "延伸", "延伸", Pextend)
Dim Pmove As String
Pmove = Chr(3) + Chr(3) + Chr(95) + "move" + Chr(13)
Set ButtonObject(10) = ToolbarObject.AddToolbarButton(ToolbarObject.Count + 1, "移动", "移动", Pmove)
SmallBitmapName(1) = "C:\Program Files\AutoCAD 2004\New Folder\POpen.BMP"
SmallBitmapName(2) = "C:\Program Files\AutoCAD 2004\New Folder\Psave.BMP"
SmallBitmapName(3) = "C:\Program Files\AutoCAD 2004\New Folder\Pprinter.BMP"
SmallBitmapName(4) = "C:\Program Files\AutoCAD 2004\New Folder\Pcut.BMP"
SmallBitmapName(5) = "C:\Program Files\AutoCAD 2004\New Folder\Pcopy.BMP"
SmallBitmapName(6) = "C:\Program Files\AutoCAD 2004\New Folder\Ppaste.BMP"
SmallBitmapName(7) = "C:\Program Files\AutoCAD 2004\New Folder\Pdd.BMP"
SmallBitmapName(8) = "C:\Program Files\AutoCAD 2004\New Folder\Pcj.BMP"
SmallBitmapName(9) = "C:\Program Files\AutoCAD 2004\New Folder\Pys.BMP"
SmallBitmapName(10) = "C:\Program Files\AutoCAD 2004\New Folder\Pmove.BMP"

lgc-ty

谢谢朋友：


                                                 不过我还有个问题请教：


就是用菜单控制autcad自定义工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记，比如工具条显示时，对应菜单左边打个对号，反之，隐藏时，对应菜单左边就没了对号?


                                                         谢谢


                                                                                                                                                                                                                                                                                                                                                                                                                         lgc

qinlong_01

请问朋友：子定义的菜单项可以调用自定义的过程函数吗？快捷菜单如何制作？

qinlong_01

请问如何可以控制菜单项的可用性？？

kevinchan

如果让系统启动就自动加载呢? 但不能重复加载.我目前使用这种办法可以自动加载,但是每次在CAD启动以后,如果在不关闭CAD的情况下,再打开另一个文件的时候就会出现重复家载的错误. (command "-vbarun" "dots.dvb!dotsdesign.NewMenuItem")
(command "-vbarun" "dots.dvb!dotsdesign.NewMenuToolbar")

lgc-ty

谢谢kevinchan,


                                                                我现在比较困惑的是：假如已加载的工具条被关闭后，怎么能让它通过菜单让它可见．我试了重复加载，但不管用．是不是得用：menutoolbar.visual实现呢？我实在想不出来！！！


　　　　　　　　lgc

houlinbo

在CAD的工具栏\自定义。。。，点击你的工具条名