Тема: Меню
Скажите пожалуйста почему 2007 автокад не требует объявления вот этих символов
Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) и код работает нормально,
а 2008 автокад воспринимает их как переменные и требует их обязательного объявления и код не работает???
Дело в версии автокада????
Это создание плавающего меню:
Sub DockToolbar()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
Dim newButton1 As AcadToolbarItem
Dim newButton2 As AcadToolbarItem
Dim newButton3 As AcadToolbarItem
Dim openMacro As String
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set newButton1 = newToolbar.AddToolbarButton("", "NewButton1", "Open a file.", openMacro)
Set newButton2 = newToolbar.AddToolbarButton("", "NewButton2", "Open a file.", openMacro)
Set newButton3 = newToolbar.AddToolbarButton("", "NewButton3", "Open a file.", openMacro)
newToolbar.Visible = True
newToolbar.Dock acToolbarDockLeft
End Sub