|
发表于 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"
|
|