; прописка меню от ADD_ACAD в автокаде 2006

if MsgBox(65, "Прописка в AutoCAD", "Внимание, сейчас будет прописываться меню в AutoCAD2006. Продолжаем?") <> 1 then Exit

; Запускаем автокад и ждем появления окончательного окна
;
Run("c:\Program Files\AutoCAD 2006\acad.exe")
WinWaitActive("AutoCAD 2006 - [Рисунок1.dwg]", "Выполняется регенерация модели")
Sleep (2000)

; После этого входим в Сервис - Адаптация - Интерфейс
; Первый вариант - через меню
;
;Send("!с")
;Send("д")
;Send("и")

; Второй вариант - через командную строку
;
Send ("_cui")
Send("{ENTER}")

While WinWaitActive("Настройка интерфейса пользователя") <>1
Send("{ENTER}")
WEnd

; выбираем Все файлы адаптации, опускаемся по списку до конца - открыть, ентер
;
WinWaitActive("Настройка интерфейса пользователя")
ControlFocus ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.COMBOBOX.app1; INSTANCE:4]")
ControlClick ( "Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.COMBOBOX.app1; INSTANCE:4]")
Send("{DOWN 15}")
Send("{ENTER}")

; в окно открытия файла вводим путь к нашему меню и ентер
;
WinWaitActive("Открыть")
;ControlSend ( "Открыть", "", "[CLASS:Edit; INSTANCE:1]", "c:\Program Files\ADD_ACAD2\ADD_ACAD2_4.mnu")
ControlFocus ("Открыть", "", "[CLASS:Edit; INSTANCE:1]")
ControlSetText ( "Открыть", "", "[CLASS:Edit; INSTANCE:1]", "c:\Program Files\ADD_ACAD2\ADD_ACAD2_4.mnu")
Send("{ENTER}")

; Определяем, что за окно появилось. В любом случае ждем Ентер и выходим из настройки.
;
Select
     Case WinWaitActive("Предупреждение", "", 3) = 1
          Send("{ENTER}")
          if WinWaitActive("Открыть")=1 then Send("{ESC}")
          WinWaitActive("Настройка интерфейса пользователя")
          ControlClick ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:12]")
          Sleep (1000)
          ControlFocus ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]")
          ControlClick ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]")

     Case WinWaitActive("AutoCAD") = 1
          Send("{ENTER}")
          if WinWaitActive("Открыть")=1 then Send("{ESC}")
          WinWaitActive("Настройка интерфейса пользователя")
          ControlClick ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:12]")
          Sleep (1000)
          ControlFocus ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]")
          ControlClick ("Настройка интерфейса пользователя", "", "[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]")

EndSelect

; Выходим из автокада
;
WinWaitActive("AutoCAD 2006 - [Рисунок1.dwg]")
Send ("_quit")
Send("{ENTER}")

; Если орет типа сохранить пустой файл - отказываемся
;
if WinWaitActive("AutoCAD")=1 then
ControlFocus ("AutoCAD", "", "[CLASS:Button; INSTANCE:2]")
ControlClick ("AutoCAD", "", "[CLASS:Button; INSTANCE:2]")
endif