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

lgc-ty · 发表于 2005-3-26 15:12:00

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

qinlong_01 · 发表于 2005-3-28 09:04:00

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

qinlong_01 · 发表于 2005-3-28 14:21:00

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

pmq · 发表于 2005-3-28 16:39:00

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 · 发表于 2005-3-29 12:23:00

谢谢朋友：
                                             不过我还有个问题请教：
就是用菜单控制autcad自定义工具条的显示与隐藏,另在菜单条的旁边作个显示或隐藏的标记，比如工具条显示时，对应菜单左边打个对号，反之，隐藏时，对应菜单左边就没了对号?
                                                      谢谢
                                                                                                                                                                                                                                                                                                                                                                                                                     lgc

qinlong_01 · 发表于 2005-3-29 16:59:00

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

qinlong_01 · 发表于 2005-3-31 15:38:00

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

kevinchan · 发表于 2005-4-3 09:35:00

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