请用VB写一段在CAD下实现快捷菜单的程序让按俺学习学习！

不是不可以

看cad的帮助，却总是搞不出来。我正在用C#+ActiveX做CAD开发，发现挺麻烦的，这里大家都在用VB，只好看看VB参考一下下了。

wmz

明总的书上有现成的.

myfreemind

VB相对简单些

yulijin608

Sub Ch6_AddButton()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)


' 建立一个新工具栏
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")


' 在新工具栏上增加一个按钮
Dim newButton As AcadToolbarItem
Dim openMacro As String


' 赋值这个宏的VB表达式为"ESC ESC _open "
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set newButton = newToolbar.AddToolbarButton _
("", "NewButton", "Open a file.", openMacro)
End Sub

不是不可以

myfreemind发表于2004-8-1 0:17:00VB相对简单些

我刚学的C#，原来没做过AUTOCAD开发，懒得再搞vB,嘿嘿。

不是不可以

yulijin608发表于2004-8-2 17:57:00Sub Ch6_AddButton()Dim currMenuGroup As AcadMenuGroupSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(

这里没有快捷菜单啊？？？