Я такую операцию включения/выключения одного из слоев делал так: писал макросы следующего вида для используемых слоев:
Application.ExecuteCommand("Display Colors Setup") If DisplayColorsSetupDlg.VisCheck0 = false then DisplayColorsSetupDlg.VisCheck0 = true Else DisplayColorsSetupDlg.VisCheck0 = false End if DisplayColorsSetupDlg.Ok.Click()
- для первого слоя
Application.ExecuteCommand("Display Colors Setup") DisplayColorsSetupDlg.ColorsScrolllBar = 2 If DisplayColorsSetupDlg.VisCheck5 = false then DisplayColorsSetupDlg.VisCheck5 = true Else DisplayColorsSetupDlg.VisCheck5 = false End if DisplayColorsSetupDlg.Ok.Click()
- для седьмого (обратите внимание, что контроль идет не по номеру слоя, а по номеру отображаемого флажка)
далее эти макросы добавляем в Macro Commands в меню Tools/Customize, а потом в том же кастомайзе во вкладке Keyboard and mouse назначаем желаемые горячие клавиши появившимся макрокомандам.
|