看了一下有点不明白,能否指点一下: 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 "
' ^C^C-vbarun ff
openMacro = Chr(94) + Chr(67) + Chr(94) + Chr(67) + Chr(95) + ??'此处应该怎样表示?
Set newButton = newToolbar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
End Sub
sub ff
msgbox"help me please! thanks"
end sub